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THINK OF A NUMBER... 
ANT NUMBER 


Dice throwing, quizzes and many 
other computer games use random 
numbers to create a seemingly 
irregular sequence of events. Here 
we show you how 



Learning to program a computer is a bit 
like learning to play football. 

Theoretically, you could learn football 
by practising one skill at a time, stepping 
out onto the pitch for an actual game only 
when you have mastered every move. But 
you would learn slowly — and have very 
little fun in the process. 

Similarly with programming. One way 
is to plough your way through a manual 
which teaches one function at a time — but 
never how to combine them. A better way 
is to ‘step out on the pitch’ and start 
playing! So where do you begin? 

GUESSING 
THE NUMBER 

The easiest of all home computer games to 
program is the one in which the computer 
‘invents’ a random number and the player 
tries to guess what it is. 



keyword RANDOMIZE. What 
exactly does this do? 

The Spectrum uses the function 
RANDOMIZE 1 (or any other number) to 
make sure that a program repeats the 
same sequence of random numbers 
each time it is run. This is useful if you 
are trying to debug a program as it is 
easier to find any mistakes if the 
program does the same thing each 
time. 

The Acorn, Commodore and 
Dragon computers use RND( — 1 ) for the 
same purpose. Again, any number will 
do but it must be negative. 

The Spectrum can also use the 
function RANDOMIZE without a number, 
or with a 0 after it, and this has quite 
the opposite effect. It makes the ./ 
random number sequence even/ 
more random. 


THE RND FUNCTION 


All home computers have a random number 
generator to allow you to invent such 
games. This is operated in BASIC by the 
function RND. 

On some computers the numbers it pro- 
duces, however, are not much use in their 
original form - they are all decimalized 
fractions between 0 and 0-99999999. 

To demonstrate this, type in this 
program, first entering NEW to clear out 
any existing program: 



10 LETX=RND 10 LET X=RND (0) 
20 PRINT X 20 PRINT X 

30 GOTO 10 30 GOTO 10 


10 LET X=RND(1) 

20 PRINT X 
30 GOTO 10 

(Remember to tap ENTER or RETURN — 
whichever your computer has — after each 
line of program.) 

When you RUN this program, all you will 
get will be a string of long, decimalized 
fractions — far too hard for a guessing 
game (for why this is, see the chart on 
page 7.) 

So how can you get the computer to pro- 
duce only whole numbers? By putting INT 
(short for integer ; or whole number) in 
front of the RND, thus: 
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1 0 LET X=INT (RND*6) 

O E 

1 0 LET X=INT (RND(1)*6) 


each line.) 

Whichever computer you are using, you 
are not limited to using a range of numbers 
from 0 to 5. You could equally well choose 
10, or even 10,000 — but this last would 
make the guessing game very hard indeed! 


USING VARIABLES 


In writing the short program above, you 
have not only selected a random number 
but also given it a name: X. From now on, 
whenever X crops up, the computer will 
know you mean 'that random number you 
just thought of.’ 

Such a name, which allows the com- 
puter to identify a number — so that it can 
compare it with another number, or 
multiply it, or divide it, or whatever you 
wish — is called a variable. 


THE INPUT STATEMENT 


Having generated the random number, the 
next step is to warn the computer to accept 
your guess at what that number is. So you 
use the INPUT statement. This tells the 
computer to wait until some information 
has been typed in. 

INPUT by itself, however, means nothing. 
The computer must have a name by which 
it can identify the data it will receive. So, as 
before, a variable is used. In this case it is G 
(for 'guess’), but it doesn’t have to be — it 
could be any other letter, or combination 
of letters, or even the whole word GUESS if 
you feel that energetic. 

So the whole statement is as follows (but 
do not type it in yet): 

SSO O [ lt£ii 

INPUT G 


This generates a whole number between 0 
and 5. On other computers you do not have 
to use I NT. To generate whole numbers be- 
tween 0 and 5, for example, you just type 


Now that your computer knows the secret 
number it has generated, and your guess, it 
can compare the two. This is done in a very 
similar way to ordinary English: 


iO EUi£Q 


10 LET X=RND (6)— 1 
20 PRINT X 
30 GOTO 10 

(Remember to tap [ENTER or [RETURN! after 


IF X=G THEN PRINT "WELL DONE” 

The IF... THEN statement is clearly a very 
useful one. In programming, you will use it 
over and over again. 



1. The cursor — a small under- 
line on this machine, but a 
‘blob’ on others — shows where 
the next character you enter 
will appear on the screen of the 
television set 


Some computers, such as the Acorns 
and Dragon, go one better. They have an 
extension of the statement, IF... THEN.... 
ELSE. In this case the computer does som- 
ething else if the two numbers are not 
equal. 

On those computers without the ELSE 
extension, such as the Sinclair and 
Commodore home computers, the com- 
puter automatically skips to the next line 
of program if, in this case, the two num- 
bers are not equal. 


PROGRAM OUTLINE 


Now type in this program: 

(The < > means “is less than or more 
than” — in other words, G is notequal to X.) 


20 LET X=INT (RND*6) 

30 PRINT “THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 

60 IF G=X THEN PRINT “WELL DONE” 

80 IFG <> XTHEN PRINT 

“TOUGH LUCK -YOU'RE WRONG” 


tea 

20LETX-BNDI6)— 1 












30 PRINT -THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 ANO 5. CAN YOU 
GUESS IT?” 

40 INPUT G 

60 IF G=X THEN PRINT "WELL DONE” ELSE 
PRINT "TOUGH LUCK- YOU'RE WRONG” 

u 

20 LET X=RND(6)— 1 

30 PRINT "THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT? 

40 INPUT G 

60 IF G=X THEN PRINT "WELL DONE” ELSE 
PRINT "TOUGH LUCK - YOU’RE WRONG” 


o & 

20 LET X=INT(RND(1 )*6) 

30 PRINT “THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 

60 IF G=X THEN PRINT “WELL DONE” 

80 IF G< >XTHEN PRINT "TOUGH LUCK 
-YOU'RE WRONG” 

RUN this program, and you will see that it is 
playable — but only just. To begin with, the 
screen is a bit cluttered. On top of that, the 
game expires after just one go. 

To deal with the first problem, all you 
need do is enter: 




Finding your way out 

Beginners sometimes find it difficult 
to interrupt a RUNning program and 
get back to the program listing — 
perhaps because it needs amendment. 

This usually happens when the 
computer is expecting a series of 
INPUTs. Whatever you type, it seems, 
simply fills the screen with rubbish. 



First press CAPS SHIFT and SPACE to 
BREAK. If this doesn’t work you could 
be in INPUT mode. If this is the case, 
use the cursor controls and DELETE to 
remove any quotation marks. Then 
use STOP (shifted A), then ENTER . This 
gives you report H — “stop in INPUT.” 
Now press ENTER) again to list the 
program. 

O O 

Try pressing [RUN/STOP], then type LIST. 
If this docs not work, hold down 
RUN/STOP while you press RESTORE . 
Then type LIST. 

U 

Push ESCAPE , then type LIST. If this 
does not work, press the BREAK key 
and then type OLD, then LIST. 



Press BREAK , then type LIST. If this 
does not work, push the [RESET 1 
button located on the left 
side of the machine. Then type LIST. 



10CLS 

50CLS 


O CE 

10 PRINT □” 

50 PRINT □” 

This statement means “clear screen” so 
that only the new, relevant information 
appears there. 

To deal with the second problem is 
slightly harder. One way round it would be 
to enter: 

90 GOTO 10 

To re-start the game automatically. 


STRING VARIABLES 


A better way is to offer the player the 
chance of another game if he wants it. This 
may sound complicated, but in practice it 
is quite straightforward. 

Start by typing in the complete pro- 
gram. On the ZX81, leave out OR A$="y” in 
Line 110. 


10 CLS 

20 LET X=INT (RND*6) 

30 PRINT “THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 
50 CLS 

60 IF G=X THEN PRINT "WELL DONE” 

70 IF G=X THEN GOTO 90 

80 PRINT "TOUGH LUCK- YOU'RE WRONG” 

90 PRINT "DO YOU WANT ANOTHER GO? IF SO, 
PLEASE TYPE Y AND PRESS THE ENTER 
KEY” 

100 INPUT A$ 

110 IF A$=“Y” OR A$=“y” THEN GOTO 10 


120 GOTO 100 


10 CLS 

20 LET X=RND(6) — 1 
30 PRINT "THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 
50 CLS 

60 IF G=X THEN PRINT "WELL DONE” ELSE 
PRINT "TOUGH LUCK-YOU RE WRONG” 

90 PRINT “DO YOU WANT ANOTHER GO? IF SO. 
PLEASE TYPE Y AND PRESS THE ENTER 
KEY” 

100 INPUT A$ 

110 IF A$="Y” THEN GOTO 10 
120 GOTO 100 

u 

10 CLS 

20 LET X=RND(6) — 1 
30 PRINT "THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 
50 CLS 

60 IF G=X THEN PRINT “WELL DONE” ELSE 
PRINT "TOUGH LUCK- YOU'RE WRONG” 

90 PRINT “DO YOU WANT ANOTHER GO? IF SO. 
PLEASE TYPE Y AND PRESS THE RETURN 
KEY- 

100 INPUT A$ 



2. What punctuation means in 
programming. The lines 
at the top of the screen are 
the programmer’s instructions; 
the other lines show how these 
have been carried out. Thus a 
comma (,) means ‘tabulate’; a 
semi-colon (;) means ‘close up 
tight’; and a single quotation 
mark (’) on the Commodore, 
Spectrum and Acorn machines 
means ‘begin a new line’. 
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110 IF A$=“Y” THEN GOTO 10 
120 GOTO 100 

& EE 

10 PRINT 

20 LET X=INT (RND(1)*6) 

30 PRINT “THE COMPUTER HAS CHOSEN A 
NUMBER BETWEEN 0 AND 5. CAN YOU 
GUESS IT?” 

40 INPUT G 
50 PRINT 

60 IF G=XTHEN PRINT “WELL DONE ”:G0T0 
90 

80 PRINT “TOUGH LUCK— YOU'RE WRONG” 

90 PRINT “DO YOU WANT ANOTHER GO? IF SO, 
PLEASE TYPE Y AND PRESS THE RETURN 
KEY” 

100 INPUT A$ 

110 IF A$= “Y” THEN GOTO 10 
120 GOTO 100 

As you can see, first you ask the player (in 
Line 90) if he wants another game. Then, 
to warn the computer to expect an answer, 
you use in Line 100 the INPUT statement. 

This time, however, there is an 
important difference. After Line 20, the 



player entered a number. This time he is 
going to enter Y (for “yes”) or N (for “no”) 

— not a number, but a letter. 

This means that at Line 100, instead of 
INPUT A, you must use INPUT A$. 

The dollar sign is called a string , and A$ 
is known as a string variable. 

Why is the $ necessary? To understand 
this, you need to know a great deal about 
how the computer stores and handles input 

— the subject of a later chapter. 

For now, the important point to 
remember is: 

When the computer is expecting a 
number ; you use INPUT A, INPUT B, INPUT X or 
whatever. 

When it is expecting a letter or word , 
you must use INPUT A$, INPUT B$, INPUT X$ 
or whatever. 

Line 120 is included so that, if the player 
does not want another game immediately, 
the computer waits until he does by 
repeating the process until the answer does 
equal Y. It does this by repeatedly jumping 
back to Line 100 until a Y keypress after that 
line breaks the cycle. 


The RND function has hundreds of uses in 
programming. Suppose, for example, you 
wanted a program to teach your eight- 
year-old son or brother his 9-times table. 
You could set it up like this: 


...and so on. 

But this would give you a very long pro- 
gram — without even solving the problem 
of how the computer responds if one of his 
answers is wrong! 

Use the RND function, however, and you 
can produce a much more compact pro- 
gram that will not only ask all the right 
questions, but ask them in random order— I 


10 PRINT “WHAT IS 1 TIMES 9?” 

20 INPUT A 

30 IF A=9 THEN PRINT “CORRECT” 
40 PRINT “WHAT IS 2 TIMES 9?” 
50 INPUT B 

60 IF B=18 THEN PRINT “CORRECT 







a much better way of teaching, as well as of 
programming. 

Particularly when you are learning pro- 
gramming, it is always best to work out the 
‘core’ of a program before adding the frills. 
So first try these lines (remember NEW!): 


(J1£Q 

10LETN=RND(12) 

20 PRINT "WHAT IS N; “□ TIMES 9? 
30 INPUT A 

40 IF A=N*9 THEN PRINT “CORRECT” 


10 N = INT (RND(1)'12) + 1 

20 PRINT "WHAT ISO”; N;“DTIMES 9?” 

30 INPUT A 

40 IF A=N*9 THEN PRINT "CORRECT” 

This program is using RND in much the 
same way as in the guessing game. In Line 
10, you first set up a variable, or label, for 
the random number the computer selects. 
In this case it is N, but it could be any other 
letter or letters. 


1 0 LET N=INT (RND* 12+1 ) 

20 PRINT "WHAT ISO”; N; “CHIMES 9?” 
30 INPUT A 

40 IF A=N*9 THEN PRINT "CORRECT” 


>PMIMT (1 ♦ *> * 3 
'(I 9 

1 >«UNT (4 « 9) / 6 

1 

>P*INT ce - 6> ♦ 2 

4 

>P*INT SQR ( 2 ) 
1.41421334 

>_ 

, 


40 PRINT "HELLO, 0”;A$, “I HAVE SOME”,” 
QUESTIONS FOR YOU” 

50 PAUSE 200 
60CLS 

70LETN=INT(RND*12)+1 

80 PRINT "WHAT ISO”;N; “OTIMES 9?” 

90 INPUT A 

100 IF A=N*9 THEN GOTO 150 
110 CLS 

120 PRINT A;“D?” 

130 PRINT "SORRY, PLEASE TRY AGAIN" 

140 GOTO 80 

150 PRINT "WELL D0NE,D”; A$,“HERE IS THE 
NEXT ONE” 

160 PAUSE 150 
170 GOTO 60 


3. Computer symbols for basic 
arithmetic. The * sign, and not 
small x, is used for ‘multiply.’ 
The / means ‘divided by,’ and 
t ‘raised to the power of,’ (The 
ZX81 uses ** instead). Plus and 
minus signs are conventional. 


Then, in the right-hand half of Line 10, 
you tell the computer to pick a number — 
any whole number — between 1 and 12. 
(The +1 on the Spectrum, ZX81 and Com- 
modore is necessary because their random 
numbers start at 0 — a number not wanted 
for this job.) 

In Line 20 you ask the player to multiply 


by 9 whichever number the computer has 
chosen this time. Line 40 warns the com- 
puter to multiply the random number by 9, 
compare this with the player’s answer and 
— if the latter is correct —print “CORRECT”. 

RUN this program and you will find that 
it works — once. You could make it con- 
tinuous by adding: 

50 GOTO 10 

. . . but why not do the job properly, as here: 


10 PRINT “HELLO. WHAT IS YOUR NAME?” 
20 INPUT A$ 

30 CLS 










> tem ; PROGRAimm\ i 


UlfiQ 

10 PRINT “HELLO, WHAT IS YOUR NAME?” 

20 INPUT AS 
30CLS 

40 PRINT “HELLO,D";A$:PRINT “I HAVE 
SOME QUESTIONS FOR YOU" 

50 FOR X=1 TO 6000: NEXT X 
60CLS 

70 LET N=RND(12) 

80 PRINT “WHAT ISD";N;“DTIMES 9?” 

90 INPUT A 

100 IF A=N*9 THEN GOTO 150 
110 CLS 

120 PRINT A;“?” 

130 PRINT “SORRY, PLEASE TRY AGAIN" 

140 GOTO 80 

150 PRINT “WELL DONE, □"•.AS: PRINT “HERE 
IS THE NEXT ONE” 

160 FOR X=1 TO 4000:NEXT X 
170 GOTO 60 

O E 

10 PRINT “HELLO. WHAT IS YOUR NAME?” 

20 INPUT AS 
30 PRINT 

40 PRINT "HELLO, □";A$:PRINT “I HAVE 
SOME QUESTIONS FOR YOU” 

50 FOR X=1 TO 2000:NEXTX 
60 PRINT 

70 N=INT(RND(1 )*12)+1 

80 PRINT “WHAT ISD”;N:“DTIMES 9?” 

90A=0: INPUT A 

100 IF A=N*9 THEN GOTO 150 

110 PRINT 

120 PRINT A;“D?” 

130 PRINT “SORRY. PLEASE TRY AGAIN” 

140 GOTO 80 

150 PRINT “WELL DONE,D";A$:PRINT “HERE 
IS THE NEXT ONE” 

160 FOR X=1 TO 2000:NEXTX 
170 GOTO 60 

What most of these lines are doing will be 
obvious when you RUN the program. But a 
few are worth a comment: 

Lines 30, 60 and 110 are to stop the 
screen getting cluttered up with computer 
chatter or columns of wrong answers. (RUN 
the program with these lines deleted and 
you will see the difference they make.) 



4. The numbers at the start of 
program lines are important. 
Without them, the computer will 
execute each line separately, 
rather than carrying out the 
program as a whole. However 
you enter them, the computer 
will automatically rearrange 
the lines in numerical order. 
Gaps between the numbers allow 
you to amend the program later 


Lines 50 and 160 simply waste time, by 
making the computer ‘count up to’ a 
certain number before springing the next 
question on your unsuspecting infant. 
(How it does this is in BASIC Program- 
ming 2.) 

In the Sinclair program the commas in 
Lines 40 and 150, as all but absolute begin- 
ners will know, are to space out the mess- 
ages so there are no word splits at the end 
of the line. In the programs for the other 
machines, the colons and extra PRINT state- 
ments in Lines 40 and 150 are doing the 
same job 

From the viewpoint of your eight-year- 
old, this program has one terrible 
disadvantage: it goes on and on without 
stopping. You can release him from his 
misery, like this: 


Push STOP, then ENTER 


Push BREAK 


u 

Push ESCAPE 

O El 

Push 1 RUN/STOP i 

From your viewpoint, on the other hand, 
the program has a bonus feature: 

Simply by changing the 9s in the pro- 
gram to 5s, 6s, 7s or whatever, you can test 
him on all his tables. 

And because the computer does all the 
sums, you do not need to know any of the 
answers yourself! 



How do you specify a range of 
random numbers? 

RND on the Sinclair, RND(1 ) on the 
Acorn, and RND(0) on the Dragon and 
Commodore generate a random 
number between 0 and 0.999999. If 
you want a larger range of random 
numbers you have to multiply the 
original RND function. For example to 
generate a number between 0 and 
39.999999, you would multiply the 
original function by 40. 

To generate a random whole 
number, as opposed to a decimal 
number, you use the integer or INT 
function. The expression now looks 
like this: INT (original function *40). It 
will generate a number between 0 and 
39 because the INT function merely 
cuts off all the figures after the decimal 
point. 

Suppose you want to have a range of 
numbers from 1 to 40. All you have to 
do is to add 1 to the INT expression. 

The Dragon and Acorn machines have 
a shortcut. A whole number between 1 
and 40 is generated when RND(40) is/' 
typed. See the table for some z' 
examples. 


Specifying random number ranges 

H 

c 


55 

Generates a random number between 0 and 0.999999 

RND(l) 

RND(1) 

RND(0) 

RND 

Generates a random number between 0 and n*0.999999 

RND(1)*n 

RND(1)*n 

RND|0)*n 

RND*n 

Generates a random number between —10 and 4-10 

RND(21 ) — 11 

INT(RND(1)'21) — 10 

RND(21)— 11 

INT(RND*21)— 10 

Generates a random whole number between 0 and 39 

INT(RND(1 )*40) 

INT(RND(1)’4C) 

INT|RND(0)*40) 

INT|RND*40) 

Generates a random whole number between 1 and 40 

RND(40) 

INT(RND(1)‘40) + 1 

RND(40) 

INT(RND*40)4-1 






PEED UP YOUR 
JAMES ROUT1N 


Machine code is not just for the 
experienced programmer. You can 
start off by using short routines to 
speed up your BASIC games— and 
have fun while you're learning 


Machine code programming — on the sur- 
face, anvwav — is far from easy. To most 
home computer owners, machine code is a 
daunting maze of numbers. 

The best way to begin is by actually trying 
out some machine code routines. In this way 
you, right from the start, will be familiar with 
the advantages of machine code, and what it 
can do for your programs. Then, in later 
articles in the series, we will take you through 
all the mysterious numbers so that you can 
develop machine code programs of your own. 

The graphics in this article use BASIC 
programs to put machine code routines into 
your computer’s memory. In this way, you can 
produce far faster and more lifelike movement 
than you could using BASIC alone. Note that 
because this is dependent on the characteristics 
of individual computer’s, the Sinclair and 
Commodore programs are designed only for 
the Spectrum and Commodore 64. Future 
articles will show how you can apply these 
techniques to the ZX81 and Vic 20. 



Watch the numbers! 


The numbers which make up machine 
code routines must be typed into your 
computer with great accuracy. 

Once a routine is in memory, you 
cannot normally recall it for amend- 
ment by using BASIC. 

In this article, for example, the 
BASIC programs which make the tank 
and frog move can be changed at will. 
You can experiment, too, by altering 
the DATA which defines these two 
graphics, because by doing this you 
are only ‘re-shaping’ the content of 
the pictures. 

But the program which sets up the 
initial frames must be treated with 
great care RUN it only when you have 
checked on the screen that your typing 
is ‘spot on’. 



To set up the graphics illustrated in figs 2 
and 3 you will need to do three things. 

First, you must set up in the computer’s 
memory a frame, or grid, which defines the 
size of the graphic you want. At first, this 
frame will be reproduced as a series of user 
defined graphics characters (see below). 

Second, you must enter a program 
which will allow you to move the frame 
around the screen. 

Third, you must remove the user 
defined graphics characters in the frame 
and replace them with the graphic you 
actually want— tank, frog or whatever. 


SPECTRUM UDG CHARACTERS 


On the Spectrum a user definable graphics 
character, or UDG character for short, is a 
letter (such as A) which you can ‘mould’ 
into something else. 



Each letter consists of 64 dots (some one 
colour, some another) within an 8 x 8 grid 
as in fig. 1. Provided you stay within the 
grid, you can write a program which 
changes each letter into any shape you like. 

The Spectrum gives you 21 such letters: 
A to U inclusive. As fig. 2 shows, you can 
put these tiny grids together on the screen 
to form larger frames. At any one time, for 
example, you can have two 3x3 frames 
(with three UDG characters left over), or 
five 2x2 frames. 


SETTING UP THE GRID 


Both the frog and the tank illustrated in 
this article need a 3 x 3 frame of UDG 
characters, as under: 

ABC 
D E F 
G H I 


One way to create this would be to use a 
series of PRINT AT statements in BASIC: 

PRINT AT 10,10; < graphics ABO 
PRINT AT 11. 10; < graphics DEF> 

A better way is to use the machine code 
routine which the BASIC program below 
sets up. When you type it in, make sure you 
use the Spectrum key words and not the 
actual letters. CODE, for example, is entered 
by pressing ICAPS SHIFT1 and [SYMBOL SH IP 
together and then pressing the I key. 

10 IF PEEK 23733=127 THEN CLEAR 32399: 

LET B=32400: LET Z=0 
20 IF PEEK 23733=255 THEN CLEAR 65199: 

LET B=65200: LETZ=1 
30 LETT = 0:FOR N = B TO B + 129:READ 
A: LET T=T+A:P0KE N,A:NEXT N:READ 
A:IF A< >TTHEN PRINT “DATA 
ERR0R”:ST0P 

40 IF Z=1 THEN POKE 65258,178: POKE 
65259,254: P0KE65277, 179: POKE 
65278,254 

50 SAVE “FramePrint” CODE B,130 
60 STOP 

100 DATA 24, 55,1, 22, 0,0, 32, 32, 32, 22, 0,0, 

32.32.32.22.0. 0.32.32 

110 DATA 32,22,0,0,144,145,146,22,0,0,147, 

148.149.22.0. 0.150.151.152.22 

120 DATA 0,0,153,154,155,22,0,0,156,157, 

158.22.0. 0.159.160.161.58.146.126 
130 DATA 254,1,1,18,0,40,8,56,4,203,33, 

24.2.14.0. 221.33.147.126.221 

140 DATA 9,58,137,92,71 ,62,24,144,221 , 
119,1,60,221,119,7,60,221,119,13,58 
150 DATA 136,92,71,62,33,144,221,119,2, 
221,119,8,221,119,14,221,229,62,2,205 
160 DATA 1,22,209,1,18,0,205,60,32,201,9913 

This routine, you may feel, is a very long- 
winded way of entering the equivalent of 
three PRINT AT statements. True, but it has 
two big advantages: 

1 Once you have typed it once, you can 
SAVE it and use it over and over again. 

2 In use, this routine will make the whole 
frame (or the graphic you replace it with) 
move about the screen much, much faster 
than the equivalent BASIC. 

Without knowing machine code you 
cannot, of course, understand each of the 
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above DATA numbers. But in summary: 

Lines 10 and 20 work out where the pro- 
gram will be stored. (If you have a 16K 
machine the program is stored in a 
different part of the machine from where it 
would be in a 48K machine). Note that on 
some 48K machines which have been up- 
graded from 16K, this may not work. If you 
have a problem with a 48K machine, omit 
Line 10 and substitute Line 20 with: 


20 CLEAR 65199: LET B = 65200: LET Z= 1 


Line 30 tells the computer to memorize the 
numbers out of DATA statements. If you make 
a mistake in copying this long list of numbers 
it will tell you there is a data error, so recheck 
your entries in Lines 100 to 160. These lines 
contain the numbers which, when placed in 
memory, form your machine code routine. 

SAVEing this program is done in a differ- 
ent way from usual. When you have typed it 
and RUN it the screen will go blank and the 
computer will prompt you to start your tape 
recorder and then press “any key” to save the 
routine on ™ 

“Frame 


With the program still in memory (or 
reLOADED from tape and RUN), you can 
begin to use it. First type NEW and 1 ENTER 1 
so your new program does not corrupt the 
old. Then type in: 


20 LET print =32400: LET B=32402: IF PEEK 
23733=255 THEN LET print =65200: LET 
B=65202 

90 BORDER 0: PAPER 0: INK 4: CLS 
100 LET Y=8: LETX=15: LET Y1 =8: LET 
XI =15: LET Z= 1 
110 LET A$=INKEY$ 

120 IF A$= u z” AND X> 0 THEN LET 
XI =X — 1 : LET Z=1 
130 IF A$=“x” AND X<29THEN LET 
X1=X+1 : LET Z=2 
140 IF A$=“p’' AND Y> 0 THEN LET 
Y1 =Y — 1 

150 IF A$=“r AND Y< 18 THEN LET Y1 =Y+1 
170 LET X=X1 : LET Y=Y1 
180 PRINT AT Y,X;: POKE B,Z: RANDOMIZE 
USR print 
190 GOTO 110 


Note that print in lower case letters has to be 
typed in letter-by-letter, and is not the same as 
PRINT on the P key. 

This BASIC program lets you move the 
frame around the screen using P-up; Z-left; L- 
down; X-right. When you RUN the program 
you will see that you have created not one 3x3 
frame, but two, the second one consisting of the 
letters JKLMNOPQR. This is to allow you to 
have two versions of your final graphic — one 
facing left as it moves left, and one facing right 
as it moves right. 

You will also notice something else: as 
the frames move, they leave behind a trail 
of unwanted characters. You do not need 
to use up any of your UDG characters to get 
rid of this clutter. All you need is: 

160 PRINT AT Y,X;: POKE B, 0: RANDOMIZE 
USR print 

This produces a 3 x 3 frame of spaces 
which rub out whatever is on the screen at 
the Y,X position. 


MOVING THE GRID 
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CREATING THE TANK 


To turn your existing frames into a tank, 
type in these few lines of statements plus 
DATA. They define a tank pointing to the 
left in frame 1, and to the right in frame 2. 

10 FOR N=USR “a" TO USR “r”+7: READ A: 
POKE N,A: NEXT N 

1000 DATA 0,0, 0,0, 0.0, 0,0, 0,0,0, 0,0,0, 0,0 
1010 DATA 0,0,0,0,0.0,0.0,0,0,0,0,255,0,1,0 
1020 DATA 0,0,1 ,63,255,255,255.0,0,0, 

192.224.254.254.224.0 

1030 DATA 63,127,255,122,48,6.0,0,255, 

255.255.235.65.102.0. 0 

1040 DATA 255,255,255,174,6,100.0.0 
1050 DATA 0,0,0. 0,0, 0,0. 0,0, 0,0,0. 0,0, 0,0 
1060 DATA 0,0,0,0.0,0,0.0,0,0,3,7,127,127, 

7.0 

1070 DATA 0,0,128,252,255,255,255,0,0,0, 
0,0,255,0,128,0 

1080 DATA 255,255,255,117,96,38,0,0.255, 

255.255.215.130.102.0. 0 

1090 DATA 252,254,255,94,12,96.0.0 

Two more UDG characters will ‘arm’ the 
tank. First press BREAK, then type: 

10 FOR N=USR “a” TO USR “t”+7:READA: 
POKE N, A: NEXT N 

115 IF INKEYS=“D” THEN GOTO 200 
200 IF Z=2 THEN GOTO 300 
210 FOR N=X— 1 TO 0 STEP— 1 
220 PRINT INK 5;AT Y+1,N; CHR$ 162 
230 PAUSE 1 

240 PRINT AT Y+1,N;“CI” 

250 NEXT N 

260 GO TO 110 

300 FOR N=X+3 TO 31 

310 PRINT INK 5;ATY+1,N; CHRS 163 


320 PAUSE 1 

330 PRINT AT Y+1,N;“D” 

340 NEXT N 
350 GO TO 110 

1100 DATA 0,4,9,2,176,2,9,4.0,32,144,64, 
13,64,144,32 

RUN this program, and you can use the 
I SPACE I key to fire a shell. 


CREATING THE FROG 


To turn your existing frames into the frog, 
you will of course first have to get rid of the 
tank. So first type NEW, then ENTER . 

What this does is to clear away both the 
tank and the program with which you 
controlled it. The machine code program 
which set up the frames, however, will still 
be in the Spectrum’s memory — unless you 
have pulled the power plug. 

If you have disconnected the power, first 
type CLEAR 32399 on the 16K machine, or 
CLEAR 65199 on the 48K machine. This 
reserves for the machine code a space at 
the top of the computer’s memory, where 
the BASIC you are going to enter cannot 
reach — and corrupt — it. Next, type LOAD 
CODE and switch on your tape recorder 
to load the original machine code routine. 

With the machine code loaded, type in 
the following statements plus DATA to 
define the frog. Then you can RUN the 
program: 

30 RESTORE 5000: FOR N=USR “a" TO USR 
“r” +7: READ A: P0KEN,A: NEXTN 
5000 DATA 0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
5010 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 1,1 
5020 DATA 0,0,0,0,0,128,192,176,0,0,0,0,0, 


0 , 0,0 

5030 DATA 4,15,31,63,127.254,248,127,96, 
240,224,192,64,32,156,192 
5040 DATA 0,0, 0,0, 0,0, 0,0 
5050 DATA 0,0,0, 0,0,0, 0,0,0,0,0,0,0,1 ,3,7 
5060 DATA 8,28,27, 70,255,254,252,249,0, 
0 , 0 , 0 , 0 , 0 , 0,0 

5070 DATA 7,7,15,30,54,38,70,70,250,196, 

0 , 0 , 0 , 0 , 0,0 

5080 DATA0,0, 1,1, 3, 6, 2,0, 140, 144, 16, 32, 
32,48,32,0 

5090 DATA 0,0,0,0,0,0,0,0 


CONTROLLING THE FROG 


To control the frog’s movements, you need: 

10 BORDER 0: PAPER 0: INK 4: BRIGHT 1 : CLS 
20 LET P=32400: IF PEEK 23733=255 THEN 
LET P=65200 

100 PRINT AT 10,0;: RANDOMIZE USR P: IF 
INKEY$= •’’THEN GOTO 100 
110 RESTORE 1000: FOR F=1 TO 5 
120 READ A,B,C: POKE P+2.A: PRINT AT B,C;: 

RANDOMIZE USR P 
130 PAUSE 2: CLS: NEXT F 
150 PRINT AT 10,12;: RANDOMIZE USR P: IF 
INKEY$=“” THEN GOTO 150 
200 FOR F=1 TO 5 

210 READ A,B,C: POKE P+2.A: PRINT AT B,C;: 

RANDOMIZE USR P 
220 PAUSE 2: CLS: NEXT F 
230 GOTO 100 

1000 DATA 1,10,0,2,7,3,2,5,6,2,7,9,1,10,12, 
1,10,12,2,7,15,2,5,18,2,7,21,1,10,24 
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To set up the graphics illustrated in figs 2 
and 3 you will need to do three things. 

First, you must set up in the computer’s 
memory a frame, or grid, which defines the 
size of the graphic you want. To begin 
with, this frame will be reproduced as a 
series of user defined graphics characters 
(see below). 

Second, you must enter a program 
which will allow you to move the frame 
around the screen. If your graphic is to be 
part of a game in BASIC, this movement 
routine will also normally be in BASIC. 

Third, you must replace the user defined 
graphics characters in the frame with the 
graphic you actually want — tank, frog or 
whatever. 


ACORN UDG CHARACTERS 


On the Electron and BBC B, a user defin- 
able graphics character, or UDG for short, 
is a ‘box’ in which you can produce a 
picture. 

Each ‘box’ contains 64 dots within an 8 
x 8 grid. Since they are all the same colour 
as the background, the box is invisible to 
begin with. But provided you stay within 
the box, you can change the colours of 
some or all of the dots to form any shape 
you like. 

The Acorn machines normally let you 
have 32 UDG characters. As fig 2 shows, 
you can put them next to each other on the 
screen to form larger shapes. At any one 
time, for example, you could have three 
3x3 frames with five UDG characters left 
over. Or you could have eight 2x2 frames 
— or even one massive 8x4 frame with 
nothing left over. 


SETTING UP THE GRID 


Both the frog and the tank illustrated in 
this article need a 3 x 3 frame of UDG 
characters, as under: 


224 

225 

226 

227 

228 

229 

230 

231 

232 


You could create this using a series of PRINT 
TAB commands, for example: 

PRINTTAB (10,10); CHR$(224);CHR$(225); 
CHR$(226) 

PRINTTAB (10,11 ); CHR$(227);CHR$(228); 
CHR$(229) . . . and so on. 


A better — if slightly longer — way is to use 
a BASIC program to set up a machine code 
routine, as shown below. This routine has 
two advantages: once you have entered it 
once, you can use it over and over again; 
and of course it allows you to move your 
graphics around the screen much faster 
than you could using BASIC alone. 

Before entering the program, type NEW. 
Then type: 

10 FOR T=&D00 TO &D58 
20 READ A:?T=A 
30 NEXT T 

40 *SAVE “FramePrint” 0D00+59 
50 DATA 24,169,224,202,48,47,240,7, 

202.240.2.105.9.105.9.162.3.160.3.32, 
238,255,24,105,1,136,208,247,202, 
240,21,72,169 

60 DATA 10,32,238,255,169,8,32,238,255, 
32,238,255,32,238,255,104,76,17, 
&0D,96,169, 32,162, 3,160, 3, 32,238, 
255,136,208,250 

70 DATA 202,240,240,169,10,32,238, 

255.169.8.32.238.255.32.238.255.32, 
238, 255,169,32, 76,57,&0D 

If you have a disk drive, this program will 
need some modification. Line 10 be- 
comes....^ FOR T=&A00 TO &A58. In Line 
40, replace. ...0D00.. .with. ..0A00. And in 
Lines 60 and 70, replace. ..&0D.. .with. ..&0A. 

Now RUN the program. When you have 
finished, the computer will tell you to press 
the ‘record’ button on your tape recorder 
and then press the computer’s RETURN key. 
This will save the routine for immediate or 
future use. 


DO NOT BREAK 


Now a word of warning: do not use the 
BREAK key at any time while this machine 
code routine is in your computer’s memory 
(as you might, for example, to amend a line 
of BASIC program or of DATA). Using the 
BREAK key will corrupt the routine and you 
may be unable to get your program back 
again. 

Without knowing machine code you will 
not understand what the numbers in the 
DATA statements above mean, but you may 
find this helpful: 

Lines 10-30 take the numbers out of the 
DATA statement and place them into the 
memory of the machine. 

Line 40 is the command needed to SAVE 
your machine code routine. You can 
change the filename if you wish. 



MOVING THE GRID 


Now you have a copy of the machine code 
routine on tape you can begin to use it. 

First you should clear the memory of 
any ‘rubbish,’ so type NEW. (This does not 
get rid of the machine code routine, which 
is protected from the NEW statement, or 
any other BASIC, by its position in 
memory.) 

Next, to move the frame around the 
screen, type in the following program: 

10 MODE 1 

20 VDU 23; 8202;0;0;0; 

40 X=20:Y=20:X1 =20: Y1 =20:Z=1 
50 A$=GET$ 

60 IF A$=“Z” AND X>0 THEN 
XI =X — 1 :Z=1 

70 IFA$=“X” AND X<37 THEN 
XI =X+1 :Z=2 

80 IF A$=“L” AND Y<29 THEN Y1 =Y+1 
90 IF A$=“ P” AND Y> 0 THEN Y1 =Y- 1 
120 X=X1 :Y=Y1 

130 VDU 31 ,X,Y:X%=Z:CALL &D00 
140 GOTO 50 

(For disk drive, in Line 130 
replace. . . &D00. . . with. . .&A00.) 

You can now RUN the program and move 
the frame using P-up, Z-left, L-down and X- 
right. 

When the program is RUN you still will 
not see very much. If you have just played a 
game that uses UDG characters, you may 
find that remnants of space ship or ‘killer 
gorilla’ have invaded your frames. Other- 
wise, all you are likely to see is a horizontal 
line when you move left. This is, of course, 
because you have not yet defined the UDG 
characters. 


CREATING THE TANK 


To make the program useful you can pro- 
duce the tank in fig. 2— pointing left in one 
frame and pointing right in another. Press 
I ESCAPE I , then enter: 

30 GOSUB 260 

260 VDU 23,224,0.0.0,0,0,0,0,0.23, 

225.0. 0.0.0.0.0.0.0 

270 VDU23, 226, 0,0.0,0,0,0,0.0,23.227, 
0.0,0,0,255,0,1,0 
280 VDU 23,228.0,0.1,63,255,255, 

255.0. 23.229.0.0.192.224.254.254, 
224.0 

290 VDU 23,230,63,127,255,122,48, 

6.0. 0.23.231.255.255.255.235.65, 

102 . 0 . 0 
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300 VDU 23,232,255,255,255,174,6, 

100 . 0,0 

310 VDU 23,233,0,0,0,0,0,0,0,0,23,234, 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

320 VDU 23,235,0,0,0,0.0,0,0.0,23,236, 
0,0,3,7,127,127,7,0 
330 VDU 23,237,0,0,128,252,255, 

255.255.0. 23.238.0.0.0.0.255.0.128.0 
340 VDU 23,239,255,255,255,117, 

96.38.0. 0.23.240.255.255.255.215, 

130.102.0. 0 

350 VDU 23,241,252,254,255,94,12, 

96.0. 0 
380 RETURN 

When you run this program you will notice 
that the tank leaves a trail behind it. Type 
this line in to get rid of it: 

110 VDU 31,X,Y:X%=0: CALL &D00 

(For disk drive, replace the . . . &D00 . . . 
with . . . &A00.) 

This line produces a 3x3 frame of space 
which rubs out what is on the screen at the 
X,Y position. 

After seeing the tank you may want to 
create other graphics. This is quite easy, as 
long as you stay within the 3x3 frame. 

In the meantime, you have used only 18 
of the 32 available UDGs. You can make 
the tank fire a shell by defining two of the 
other UDGs as shells, one for firing left 
and the other for firing right. You need a 
few lines to control the shell. So add these 
lines to your existing program: 

100 IF A$="D” THEN GOTO 150 
150 IF Z=2 THEN GOTO 210 
160 FOR T=X — 1 TO 0 STEP -1 
170 VDU 31 ,T,Y+1, 242,8 
180 A$=INKEY$(5):VDU32 
190NEXTT 
200 GOTO 50 
210 FOR T= X+3 TO 39 
220 VDU 31 ,T,Y+1, 243,8 
230 A$=INKEY$(5):VDU 32 
240 NEXT T 
250 GOTO 50 

360 VDU 23,242,0,4,9,2,176,2,9,4 
370VDU 23,243,0,32,144,64.13,64,144,32 

As Line 100 indicates, the space bar is your 
firing mechanism. 


CREATING THE FROG 


Creating the frog is a similar job to 
creating the tank. First you type NEW. This 
gets rid of the tank and its controlling pro- 
gram, but leaves the machine code routine 
intact. (This routine will go only when you 
BHj turn off the computer or press I BREAK) .) 

If you have just turned on the computer, 



(For disk drive, 
change the . . . &D00 . . 
in Lines 140, 160, 200 
and 240 to . . . &A00.) 

RUN the 

program. The DATA 
statements repre- 
sent the height of 
the frog above 
‘ground’ level. 


load up the routine from the tape you 
SAVEd earlier. Next, using a slight variation 
of the normal LOAD command, type 
*L0AD“” and the computer will load the 
program. 

Now the computer is ready for the BASIC 
program needed to define the frog. So 
enter these lines: 

30 VDU 23,224,0,0,0,0,0,0,0,0,23,225,0, 
0,0,0,0,0,0,0,23,226,0,0,0,0,0,0,0,0 
40 VDU 23,227,0,0,0,0,0,0,1,1,23,228,0,0, 
0,0, 0,128,192,176 

50 VDU 23, 229, 0,0, 0,0, 0,0, 0,0,23, 230, 4, 
15,31,63,127,254,248,127 
60 VDU 23,231,96,240,224,192,64,32,156, 

192.23.232.0. 0.0.0.0.0.0.0 

70 VDU 23,233,0,0,0,0,0,0,0,0,23,234,0,0, 
0, 0,0, 1,3, 7 

80 VDU 23,235,8,28,27,70,255,254,252, 

249.23.236.0. 0.0.0.0.0.0.0 

90 VDU 23,237,7,7,15,30,62,54,70,70,23, 

238.250.196.0. 0.0.0.0.0 

100 VDU 23,239,0,0,1,1,3,6,2,0,23,240, 
140,144,16,32,32,48,32,0 
110 VDU 23,241,0,0,0,0,0,0,0,0 


CONTROLLING THE FROG 


These extra lines will make the frog jump 
when the space bar is pushed: 

10 MODE 1 

20 VDU 23; 8202; 0: 0; 0: 

120 X=0:Y=20:DY=0 
130 VDU 31 ,X,Y 
140 X%=1:CALL &D00 
150 IF GET$=“ ’’THEN GOSUB 180 
160 IF X> 35 THEN VDU 31 ,X,Y:X%=0:CALL 
&D00: GOTO 120 
170 GOTO150 

180 REST0RE:F0RT=1 TO 4 
190 VDU 31,X,Y— DY 
200 X%=0 : CALL &D00 
210 READ F,DY 
220 X=X+3 
230 VDU 31 ,X,Y — DY 
240 X%=F:CALL &D00 
250A$=INKEY$(5) 

260 NEXT T 
270 RETURN 

280 DATA 2,3, 2, 5, 2,3.1 ,0 


To set up the graphics illustrated in figs 2 
and 3 you will need to do three things: 

First, you must set up in the computer’s 
memory a frame which defines the size of 
the graphic you want. This frame is made 
up of user defined graphics characters 
which, on the Dragon, are invisible at first. 

Second, you must enter the DATA which 
defines the shape of your tank or frog in 
the computer’s memory (though not yet on 
the screen). 

Third, you must enter another program 
which both prints the tank or frog and 
makes it move. 


DRAGON UDG CHARACTERS 


A user defined graphics character, or UDG 
for short, is a ‘box’ in which part of a 
picture can be located. Within this box 
there is an 8 x 8 grid of 64 dots, each of 
which, in PMODE 4,1, can be either black or 
white. (PMODE 4,1 is a much more flexible 
mode than the others, in which you have to 
define not just one pixel, or k dot,’ at a time, 
but two pixels or four.) 

Putting several UDGs together allows 
you to build up much more detailed, larger 
shapes called frames. Unlike some other 
computers the Dragon has no inbuilt UDG 
characters, but parts of its memory will 
behave as UDGs if you write a program 
telling them to. 

In theory, you have hundreds of these 
frames at your disposal. Hut using them all 
would involve hours and hours of pro- 
gramming and, in practice, you will 
usually use about five of them. 











BUILDING THE TANK 


This BASIC program both PRINTs the tank 
and allows you to move it around the screen. 
Before entering it, do NOT type NEW— this 
would destroy the DATA you have just typed 
in so carefully. On the Tandy, use 251 instead 
of 239 in Line 380; 253 instead of 247 in 3 90; 

247 instead of 223 in 400 and 410. 

5 PCLEAR 5 
170 PM0DE4,1 
180PCLS 
290PCLS 
300 SCREEN 1,1 
310 T=1 
320 TP=3500 

330 POKE 32700. INT(TP/256) 

340 POKE 32701, TP— 256*INT(TP/256) 

350 POKE 32250. T 
360 EXEC 32000 
370 LP=TP 

380 IF PEEK (338)=239 THEN 
TP=TP-32: GOTO 440 
390 IF PEEK (342)=247 THEN TP=TP+32: 
GOTO440 

400 IF PEEK (340)=223 THEN 
TP=TP— 1 :T=2:G0T0 440 
410 IF PEEK (338)=223 THEN TP=TP+1 : 

T=1: GOTO 440 
430 GOTO 380 

440 IF TP< 1 536 OR TP> 6941 THEN TP=LP 
470 GOTO 330 

Now you can RUN the program and move 
the tank around the screen using P-up, Z- 
left, L-down and X-right. 

You will notice that the tank leaves a trail 
behind it. To get rid of it, type in these lines. 

450 POKE 32250,0 
460 EXEC 32000 

This uses a special feature of the machine 13 
code routine that prints a frame of blanks. 


Now you can SAVE the routine for immedi- 
ate or future use. The computer will 
prompt you to do this, so have your tape 
recorder handy. 

As well as producing faster graphics 
than the equivalent BASIC program could, 
this machine code routine is shorter and so 
takes up less memory space. 

Until you understand 6809 machine 
code you cannot know what each number 
in the DATA means. The overall ’picture’, 
however, is that — 

Line 10 sets aside some memory for the 
routine, at the same time protecting it from 
corruption by any BASIC that you enter 
later. 

Lines 90 to 120 SAVE the machine code 
from memory onto tape. 


70 DATA 0,0,3,7,127,127,7,0,0,0,128,252, 

255.255.255.0 

80 DATA 0,0,0,0,255,0,1 28,0,255,255, 

255.117.96.38.0. 0 

90 DATA 255,255,255,215,130,1 02,0,0,252, 

254.255.94.12.96.0. 0 

100 DATA 0,0, 0.0, 0.0,0, 0,0,0, 0,0, 0,0, 0,0,0, 

0 , 0 , 0 , 0 , 0 , 0,0 

1 10 DATA 0,0,0,0,255,0,1 ,0,0,0, 1 ,63,255, 

255.255.0 

120 DATA 0,0,192,224,254,254,224,0,63, 

127.255.122.48.6.0. 0 

130 DATA 255,255,255,235,65,102,0,0, 

255.255.255.174.6.100.0. 0 

This defines the tank in the computer’s 
memory, but still does not print it on the 
screen. So the final stage is: 


To build the tank you need to use 
two frames — one for the left-pointing 
tank and one for the right- 
pointing version. 

Type NEW to get rid of the 
old BASIC program (but not 
the machine code) and then 
enter the following lines: 

10 CLEAR 200,32000 
20 FOR 1=32300 TO 32443 
30 READ N 
40 POKE l,N 
50 NEXT 

60 DATA 0,0.0, 0.0, 0.0, 

0 , 0 , 0 , 0 , 0 , 0,0 


To produce the frog in fig. 3 or the tank in 
fig. 2 you first need to define a frame to put 
the character in. Both need a 3 x 3 frame 
of UDG characters — like that in fig. 1, but 
with nothing in it! 

This gives you an imaginary grid, 24 
dots by 24 dots, which you can move 
around the screen. 

In Dragon BASIC, you would have to 
PSET every dot in the frame — all 576 of 
them. So the machine code routine is 
faster. 

First type in the following routine: 


10 CLEAR 200,32000 

20 FOR 1=32000 TO 32110 

30 READ N 

40 POKE I, N 

50 NEXT 

60CLS 

90 PRINT “PRESS ANY KEY TO SAVE MACHINE 
CODE ROUTINE" 

100 B$=INKEY$ 

110 IF B$= THEN 100 
120 CSAVEM“FRAMEPRN”,32000,321 10, 
32000 

130 DATA 190,127,188,134,3,183,125,111,183, 

125.112.134.8.183.125.113 

140 DATA 182,125,250,39,50,206,126,44, 
74,198,72,61,51,203,166,192 
150 DATA 167,132,48,136,32,122,125. 

113,38,244,134,8,183,125,113,48 
160 DATA 137,255,1 ,122,125,111, 
38,230,134.3,183,125.111,48, 

137,0 

170 DATA 253,122,125,112,38,216,57, 

95.231.132.48.136.32.122.125.113 
180 DATA 38,246,134,8,183,125,113,48,137, 

255,1,122,125,111,38,232 
190 DATA 134,3,183,125,111,48,137,0,253, 
122,125,112,38,218,57 


PRINTING AND MOVING THE TANK 


SETTING UP THE GRID 








FIRING A SHELL 


To make things more interesting you can 
add a bit more BASIC program to move a shell 
fired from the tank. Enter these lines and RUN 
the program — the space bar will then fire the 
shell. On the Tandy you need to type in 247 
instead of 223 in Line 420, or the program 
will not work: 

160 DIM A(2), B(2), C(2) 

190 FOR 1=1536 TO 1760 STEP 32 
200 READ N 
210 POKE I, N 
220 NEXT 

230 GET (0,0)— (7,7), A 

240 FOR 1=1536 TO 1760 STEP 32 

250 READ N 

260 POKE I, N:NEXT 

280 GET (0,0)— (7,7), B 

420 IF PEEK (345)=223 GOSUB 500 

480 DATA 0.32,144,64,13,64,144,32 

490 DATA 0,4,9,2,176,2,9,4 

500 IF T=2 THEN 560 

510 YP=INT ((TP— 1536)/32)+8 

520 XP=8*(TP— 1533— (YP— 8)*32) 

530 IF XP> 255 THEN 620 
540 PUT (XP,YP)-(XP+7,YP+7), A 
550 GOTO 600 

560 YP=INT ((TP— 1536)/32)+8 
570 XP=8*(TP— 1537— (YP— 8)*32) 

580 IF XP< 0 THEN 620 

590 PUT (XP,YP)— (XP+7.YP+7), B 

600 FOR 1=1 T01 00: NEXT 

610 PUT (XP.YP)— (XP+7.YP+7), C 

620 RETURN 


CREATING THE FROG 


Fig. 3 shows the frames that you can define 
now and which, when controlled properly, 
will make the frog jump across the screen. 

Unless you have just turned on the com- 
puter, the machine code routine should still 
be in memory. If it isn’t allocate some 
memory for it by typing CLEAR200, 32000. 
Then type CLOADM and turn on your tape 
recorder. 

'l'o define the frog you need these lines. 
First type NEW to get rid of any “rubbish” in 
the machine, and then enter this DATA: 

10 CLEAR 200,32000 
20 FOR 1=32300 TO 32443 
30 READ N 
40 POKE I, N:NEXT 

60 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

70 DATA 0,0,0,0,0,0,1 ,1 ,0,0,0,0,0,128, 
192,176 

80 DATA 0,0,0,0,0,0,0,0,4,15,31,63,127, 
254,248,127 

mgs. 90 DATA 96,240,224,192,64,32,156,192, 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 



100 DATA 0,0.0,0,0,0.0,0.0,0,0,0,0,1,3, 
7,8,28,27,70,255,254,252,249 
110 DATA 0.0,0,0,0,0,0,0,7,7,15,30,62,54. 
70,70 

120 DATA 250,196,0,0,0,0,0,0,0,0,1 ,1,3, 

6 , 2,0 

130 DATA 140,144,16,32,32,48,32,0,0,0,0, 

0 , 0 , 0 , 0.0 


CONTROLLING THE FROG 


To make the frog jump, type NEW, then enter 
the following. On the Tandy use 247 instead 
of 223 in Line 100: 

10 PCLEAR 5 
20 PM0DE4,1 
30PCLS 
40 SCREEN 1,1 
50 FP=4487 
60 POKE 32700,17 
70 POKE 32701,135 
80 POKE 32250,1 
90 EXEC 32000 

100 IF PEEK(345)< > 223 THEN 100 
110 RESTORE 
120 FOR 1=1 TO 5 
130 READ F,FD 

140 POKE 32700.INT (FP/256) 

150 POKE 32701 ,FP — 256*INT (FP/256) 

160 POKE 32250.F 
170 EXEC 32000 
180 FOR J=0 TO 70: NEXT 
190 POKE 32250,0 
200 EXEC 32000 
210 FP=FP+FD 
220 NEXT 
230 GOTO 80 

240 DATA 1,-287,2,-253,2,258,2,291,1,0 

The DATA statement at the end of the pro- 
gram contains the numbers that make the 
frog jump. As you will see, the frog jumps in 
an arc across the screen, giving the effect of 
movement when you tap the space bar. 


The best way to create graphics similar to 
those in figs 1 and 2 is to use one of the 
Commodore 64’s special graphics features: 
sprites , a ‘king-sized’ type of UDG. 


CREATING THE TANK 


The sprite program here covers three activ- 
ities: an initializing routine, a control se- 
quence to regulate the sprite’s movement on 
the screen, and data which is used to define 
the shape of the tank sprite: 

10 FOR M = 252 TO 253: FOR l = 64*M TO 
64'M +63: POKE 1,0: NEXT 
20 FOR l=64*M+21 TO 64*M+56:READ 
A:P0KE l,A: NEXT:NEXT 
60 SC=53248:X3=24:X=24:Y3=157: 

Y= 157 

70 POKE 2043,252:POKE 2042,254:POKE 
SC+23,0:POKE SC+29,0: POKE 
SC+42,12:P0KE SC+27,0 
90 J=0:R=0: POKE 650,128: PRINT'D": 
POKE SC+21 ,8 

100 GET A$:IF A$=“ "THEN 180 
110 IF A$=“Z’’AND X3> 24 THEN 
X3=X3 12 

120 IF A$=“X"AND X3 < 31 0 THEN 
X3=X3+12 

130 IF A$ = “P” AND Y3>50 THEN 
Y3=Y3 — 12 

140 IF A$=“L’AND Y3< 220 THEN 
Y3=Y3+12 

180 IF X<X3 THEN X=X+3:P0KE 2043,253 

190 IF X>X3 THEN X=X-3:P0KE 2043,252 

200 IF Y< Y3 THEN Y=Y+3 

21 0 IF Y> Y3 THEN Y=Y— 3 

220 XA=INT(X/256):XB=X— XA*256 

230 POKE SC+6,XB:P0KE SC+7.Y 

240 P0KESC+16,4*(1 ANDJA)+8* 

(1 ANDXA) 

250 GOTO100 













1000 DATA 0,1, 192,0, 63, 224, 255, 255, 254, 
0,255,254,1,255,224,0,0,0 
1010 DATA 63,255,255,127,255,255,255, 
255,255,122,235,174,48,65,6 
1020 DATA 6,1 02,1 00 
1 030 DATA 3,128,0,7,252,0,127,255,255, 
127,255,0,7,255,128,0.0,0 
1 040 DATA 255,255,252,255,255,254. 

255,255,255,1 1 7,21 5,94,96,1 30,1 2 
1050 DATA 38,1 02,96 

If you now RUN the program, you can see a 
tank sprite displayed on the screen. You 
can use the Z and X keys to move it left or 
right, and the P and L keys to move it up 
and down. Press I R UN/STOP to terminate the 
program. Notice how the tank sprite 
changes shape when the direction of move- 
ment is altered. 


ADDING SOME ACTION 


So far you have used only one of the avail- 
able sprites, and another sprite can be 
created to add some firepower to the tank. 
This shell fires across the screen when you 
tap the space bar, and is obtained by 
adding the following program lines: 

30 FOR M=254 TO 255:F0R l=64*M TO 
64*M+62:POKEI,0:NEXT 
40 M2=0:IF M=255 THEN M2=2 
50 FOR l=64*M+ 18 TO 64*M+36 

STEP3: READA: POKE I + M2, A: NEXT: NEXT 
80 POKE SC+23,0: POKE SC+29.0:POKE 
SC+41 1 

150 IF A$< > “□'’THEN 180 
160 RT=(PEEK(2043)=253):X2=— 360*RT: 
Y2=Y:J=X— 24*RT— 11 :P0KE 
2042,254— RT 

170POKESC+21.12.GOSUB260 
260 FOR T = J TO X2 — 4 STEP(RT*2 + 1 )* — 20 
270 JA=INT(T/256):JB=T— JA*256 
280 P0KESC+16,4*(1 AND JA)+8*(1 AND 
XA) 

290 P0KESC+4,JB:P0KE SC+5.Y 
300 FOR P=1 TO 30:NEXT: NEXT:RETURN 
1500 DATA 4,9,2,176,2.9,4 
151 0 DATA 32,144,64,13,64,144,32 

To SAVE the program for future use, first 
type POKE 53269,0 (which clears the screen 
of sprites) and then use a normal BASIC pro- 
gram SAVE. 

If you try to SAVE without first clearing 
the sprites, they will corrupt your pro- 
gram. 


CREATING A FROG SPRITE 


Now let’s try the frog. The graphics of the 
frog shown in fig. 2 have to be changed 
slightly so that each can be accommodated 
in a single sprite. This is done by removing 


three of the 24 rows, and the only effect of 
this is to shorten the legs a little. 

Either switch off and then back on or 
simply type NEW RETURN and enter this: 

1 0 FOR M=252 TO 253:F0R l=64*M TO 
64*M-f 29:P0KE L0: NEXT 
20 FOR l=64*M+30+30*(M=253) TO 
64*M+62:READ A:P0KE LA: NEXT : NEXT 
30 PR I NTQ" 

40 SC=53248 :X=24:Y=155: POKE 2043, 
252: POKE SC+7,Y: POKE SC+6,X:P0KE 
SC+16,0 

50 POKE SCH-23,0: POKE SC+29 J:P0KE 
SC+27,0:POKE SC+42,5:P0KE SC+21 ,8 
60 SC=53248 :X=24:Y=155 : POKE 
2043,252:POKE SC+7,Y:P0KE 
SC+6,X:P0KE SC+16,0:YR=0 
70 GET A$ 

80 IF Y> 155 THEN POKE 2043,252 
90 IF PEEK (2043)=253 THEN 120 
100IFA$O‘TT’THEN70 
110 POKE 2043,253 :YR=7.5 
120 Y=Y— YR:YR=YR— .7 
130 X=X+4:IF X=296 THEN POKE 
2043,252:FORT=1 TO 200: NEXT: 

GOTO 60 

140 XA=INT (X/256) :XB=X — XA*256 
150 POKE SC+6,XB:P0KESC+7,Y:P0KE 
SC-H6,(1 ANDXA)*8:GOTO70 
1000 DATA 0,128,0, 1,192,0, 1,176,0 
1010 DATA 4,96,0, 15,240,0, 31 ,224,0, 

63.192.0 

1 020 DATA 127,64,0, 254,32,0, 248,156,0, 

127.192.0 

1 030 DATA 0,0,28, 0,0,27, 0,0,70, 0,0,255, 
0,1,254,0,3,252,0,7,249 
1040 DATA 0,7,250,0,7,196,0,15,0,0,30,0, 
0,62,0,0,54,0,0,70,0 

1050 DATA 0,14,0,0, 0,144,0, 1,16,0, 1,16,0, 
1,32,0, 3,32,0, 6,48,0, 2,32,0 



What’s a sprite? 

A sprite is a kind of high resolution user 
defined graphic (UDG), also referred 
to as a movable object block( MOB). It 
is used as a kind of mobile component 
of high quality Commodore 64 
graphics, in preference to UDGs. 

Unlike a UDG, a sprite offers smooth, 
easily programmable pixel-by-pixel 
movement in any direction, just as if it 
were a single character even though its 
size is 24 x 21 pixels (compared to 8 x 
8 for a standard character). 

Normally up to eight sprites can be 
displayed together anywhere on the 
screen but the number can be 
increased by special programming. A 
group of sprites can be arranged side 
by side, or overlaid for 3D effects. 
Sprites can be easily doubled in size, 
set for collision detection, adopt hi-res 
or multicolour forms — in short, they 
are extremely versatile. 

Programming for sprites actually 
proves simpler than that for UDGs if 
sophisticated animation sequences are 
required. For example, you don’t have 
to follow the trail of a sprite with a 
blanking out routine to ‘erase’ what’s 
been printed in a previous position. 

And sprites may be used with any of > 
the other graphics modes. Each 
one’s characteristics can 
be changed at will. 
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THE ART OF THE 

FOR... NEXT IOOP 


All that a FOR . . . NEXT loop does is to 
make your computer count up to a 
certain number, then stop. But you 
can use it in everything from games to 
business programming 


The FOR . . . NEXT loop takes the hard work 
out of many repetitive operations. It is used 
when you want the computer to count for 
you, usually executing some other 
operations as it goes, then stop when it 
reaches a predetermined number. 

You can create your own “instant paint- 
ings” using FOR . . . NEXT loops in quite tiny 
programs. You’ll also find them useful in 
games programming— indeed, in programs 
of all kinds. 


WHAT IS A FOR . . . NEXT LOOP 


A FOR . . . NEXT loop in BASIC is a device 
which makes the computer repeat the same 
operation a number of times. 

Suppose, for example, you wanted to 
know the square roots of all the numbers 
from 1 to 100. You could tell the computer: 

PRINT SQR(1) 

PRINT SQR(2) 

PRINT S0R(3) 

. . . and so on. And each time you asked a 
question, the computer would display the 
answer. Quite apart from imposing unne- 
cessary wear and tear on your typing 
finger(s), this is not a particularly efficient 
use of the computer. So: 


10 FOR n=1 TO 100 
20 PRINT n,SQRn 
30 NEXT n 

40 PRINT “and that is all” 

u 

10 FOR N=1 TO 100 
20 PRINT N;“D”;SQR(N) 

30 NEXT N 

40 PRINT “AND THAT IS ALL” 

10 FOR N=1 TO 100 
20 PRINT N.SQR(N) 

30 NEXT N 

40 PRINT “AND THAT IS ALL” 

What this tells the computer to do is to 
print 1 and its square root, 2 and its square 

■ root, 3 and its square root . . . and so on 
until it reaches 100, when it stops. 
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■ 

‘COUNTING UP TO 100’ 

■ 

PAINTING BY NUMBERS 


BY COMPUTER 


WITH FOR... NEXT LOOPS 

■ 

THE FOR... NEXT LOOP AS 

■ 

SUNRISE PATTERNS 


A DELAYING DEVICE 

■ 

INSTANTPATCHWORK 

■ 

CREATING SOUND EFFECTS 


AND EMBROIDERY 



How does it do this? When the computer 
encounters FOR ... it knows that the fol- 
lowing lines of the program are going to be 
repeated. So it executes (carries out) all the 
following lines until it reaches . . . NEXT. 
Then it loops back to the line with FOR . . . 
in it and repeats the process line by line. 

While the computer is doing this, it is 
also counting. The first time it reaches 
Line 20 it calculates the square root of 1, 
the second time around it calculates the 
square root of 2, and so on. 

Once it has dealt with the highest 
number in the FOR . . . statement, the com- 
puter automatically quits the loop and goes 
on to the next line of the program— in this 
case, Line 40. 


FRACTIONS, TOO 


In carrying out a FOR . . . NEXT instruction, 
the computer can count in units other than 
1. Try this, for example: 



10 FOR n=1 TO 30 STEP 2.7 
20 PRINT n, SQRn 
30 NEXT n 

a 

10 FOR N=1 TO 30 STEP 2.7 
20 PRINT N;“D”;SQR(N) 

30 NEXT N 

10 FOR N=1 TO 30 STEP 2.7 
20 PRINT N,SQR(N) 

30 NEXT N 

The computer, you’ll notice, is not at all 
deterred by the fact that 30 will not divide 
evenly in the STEPs you have asked for. It 
just goes as near as it can, then stops. 

Nor is it bothered by the number of 
lines between the FOR . . . part of the loop 
and the NEXT part. You can write for FOR 
. . . into Line 10 and the NEXT into Line 
90— or even 9000 if you like— and your 
computer will faithfully remember it. 

Remember, though, that it will execute 
all the lines within the loop every time it 
passes through. 


DELAYING ACTION 


FOR . . . NEXT loops have dozens of uses in 
programming. And the easiest of them is 
simply to waste time. 

If you refer back to the ‘Know your 
tables?’ program on page 7 you will find a 
good example. 

In this case, all that happens between 
each FOR . . . and its NEXT is that the com- 
puter ‘counts up’ one number. Computers 
count very rapidly, so this takes only a tiny 
fraction of a second (the exact time varies 
from computer to computer, but is in the 
order of hundredths or thousandths). But by 
the time it has counted to 1000 you have a 
noticeable pause. And if you should program 
it: 


. . . you would probably have time for a 
coffee before it executed the next line in 
the program. 


How can I keep track of the 
variables in my programs, and 
not get lost among all those 
Xs and Ys? 

Keeping track of your variables is 
much easier if you give them names 
that actually mean something in 
English. In a short program, your 
variables are easy to trace. But in 
a longer program if, for example, 
you are setting out material on the 
screen, it is easier to remember 
FOR row.. .and FOR column. ..than, say, 

FOR x... and FOR y. Some computers 
recognise only one- or two-letter 
variables, discarding any other 
letters. In this case, try using 
suitable initials — T for time, 

SC for score, HS for high 
score, H for hits and so on. 

This makes them very 
easy to pick up. 



10 FOR N=1 to 1000000 
20 NEXT N 
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PEEL APPEAL 


Games programmers often make such 
pauses less boring by inserting a few notes 
of a tune into them. Try this, for example: 


10 FOR n=29 TO 10 STEP —1 
20 BEEP .015, n 
30 NEXT n 

u 

10 FOR N= 160 TO 100 STEP -4 
20 SOUND 1,-15, N,1 
30 NEXT N 


10 FOR N = 1 2 TO 1 STEP-1 
20 PLAY “T40;04;” + STR$ (N) 
30 NEXT N 


This is the noise that programmers some- 
times use to say ‘You’ve failed’ or ‘The 
alien has landed’. It illustrates one point to 
remember: when you are counting downw- 
ards from a given starting point, your STEPs 
must be minus 1 (or whatever)— not just 1. 


EE 

(The Commodore 64 does not have a 
simple sound command. You would have 
to write a separate sound generating 
routine between Lines 10 and 30, branched 
to by a GOSUB in Line 20). 
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Use the right loop 

There are many occasions for using a 
FOR . . . NEXT loop — and just as many 
occasions when you shouldn’t. The 
rule is: 

When you want a program 
sequence performed a fixed number 
of times, without breaking into it at 
any stage, use a FOR . . . NEXT loop. 

When you want a program 
sequence executed only until some 
condition is fulfilled, and then want 
to break out of the loop, use a 
different statement instead. Most 
often this will be GOTO, taking you 
back to an earlier line to complete a 
loop. But on some computers you can 
use REPEAT . . . UNTIL instead. 



PAINTING BY 
NUMBERS 


20 LET M=RND{32) — 1 
30 LET C=RND(9|— 1 
40 SET (N,M,C) 

50 NEXT N 
60 GOTO 10 


Just for fun— plus valuable practice in pro- 
gramming— you can use FOR . . . NEXT loops 
to create a huge range of graphics effects. 
Here is one example: 

s 

10 FOR n = 0 TO 21 
20 LET m = RND*31 
30 INK RND*7 + 1 
40 PRINT AT 
50 NEXT n 
60 GOTO 10 

a 

8 MODE 2 

9 VDU23;8202;0;0:0; 

10 FOR row=0 TO 30 
20 LET column=RND(19) 

30 COLOUR 128+RND(7) 

40 PRINT TAB(column,row)“D”; 

50 NEXT row 
60 GOTO 10 

ft£Q 

7CLS0 

10 FOR N= 0TO 63 


Here, Line 10 sets the depth of the pattern 
you are going to print on the screen, and 
tells the computer to print it out one line at 
a time. 

Line 20 sets the width of the overall 
pattern, and— with Line 40— tells the 
computer to print little squares randomly 
across that width. 

Line 30 randomizes the colours in the 
little squares. 

EE 

10 PRINT 

15 FOR N=0 TO 24 
20 M = INT(RND(1)'16) 

25 C=INT(RND(1)*40) 

30 POKE 1024+(40*N)+C,160 
40 POKE55296-H40*N)+C,M 
50 NEXT 
60 GOTO 15 

The Commodore program works in a 
slightly different way from those on the 
other machines. Line 15 counts off the 
lines of the screen, from top to bottom. 
Line 25 selects squares randomly across 
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the width of each screen line in turn, while 

20 FOR column=0TO 19 

Line 20 chooses random colours to print in 

30 COLOUR 128+RND(7) 

each square. 

40 PRINT TAB(column,row)"D”; 

VARIATIONS ON ATHEME| 

50 NEXT column 

60 GOTO 10 

Trying variations on this theme will help 
make you familiar with both the FOR . . . 

wza 

NEXT Statement and the RND function. 

8CLS0 

Here are two for each machine. Don’t 

10 FOR N=T TO 60 

forget the NEW between them. 

20 FOR M=0 TO 31 

BS 

30 LET C=RND(9) —1 

10 FOR n = 0 TO 21 

40 SET (N.MX) 

45 NEXT M 

20 FOR m = 0 TO 31 

50 NEXT N 

30 INK RND*7 + 1 

60 GOTO 10 

40 PRINT AT 

45 NEXT m 

8CLS0 

50 NEXT n 

10 LET N=RND(60) 

60 GOTO 10 

20 FOR M=0TO 31 

10 LET n = RND*21 

30 LET C=RND(9) —1 

40 SET (N,M,C) 

20 FOR m = 0 TO 31 

45 NEXT M 

30 INK RND*7 + 1 

60 GOTO 10 

40 PRINT AT 

45 NEXT m 

60 GOTO 10 

SB 

10 PRINT 

u 

8 MODE 2 

20 FOR M=0TO 999 

30 LET C=INT(RND(1)*16) 

40 POKE 1024+M.160 

9 VDU 23;8202;0;0;0; 

50 POKE 55296+MX 

10FORrow=0TO30 

60 NEXTM 

20FORcolumn=0TO 19 

70 GOTO 20 

30 COLOUR 128+RND(7) 

40 PRINT TAB(column,row) a n”; 

10 PRINT 

45 NEXT column 

20 LET N=INT(RND(1 )*25)*40 

50 NEXT row 

30 FOR M=N TO N+39 

60 GOTO 10 

40 LET C=INT(RND(1 )*16) 

8 MODE 2 

50 POKE 1024+M,160 

60 POKE 55296+M.C 

9 VDU 23;8202;0;0;0; 

70 NEXTM 

10 LET row=RND(31 ) —1 

80 GOTO 20 



Do keywords such as PRINT 
always have to be entered in 
capital letters? 

Yes — except on Commodore, where 
you must use capitals if you are in 
uppercase mode , but small letters y 
if you are in text mode. 


Before you go any further, here is a small 
experiment you should try—on the Spec- 
trum, Acorn, Dragon and Tandy only. Delete 
Line 45 from the first of the two programs, 
and RUN it again with this line substituted: 


55 NEXT m 


u 

55 NEXT column 



55 NEXT M 


You have just discovered the final 
important fact about FOR . . . NEXT loops: 
when you have two such loops in the same 
program, one must be ‘nested’ completely 
inside the other or be completely separate. 
If they overlap, your program will not 
work. 

On the Commodore the problem does 
not arise on this occasion. But the prin- 
ciple— that one loop must be completely 
inside the other— is the same. 
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SUNSET 

PATTERN 


This program uses a FOR . . . NEXT loop to 
create a ‘sunset’ pattern. The first part of 
the program fixes a point in mid-screen, 
and draws from there to random points 
across the top of the screen. The second 
part draws perspective lines at the bottom 
half of the screen, starting from a series of 
fixed points. 


5 BORDER 0:PAPER0:INK6:CLS 
10 FOR n=1 TO 80 
20 PLOT 127,75 

30 DRAW INT (RND*250) -125, INT(RND*97) 
40 NEXT n 
45 INK 5 

50 FOR n=75 TO 0 STEP — 15 
60 PLOT 127, 75 

70 DRAW — 127,— n: PLOT 127,75: 

DRAW 127, -n 
80 NEXT n 

100 FOR n=— 127 TO 127 STEP 20 
110 PLOT 127,75 
120 DRAW n, -7 5 
130 NEXT n 

u 

10MODE1 
15GCOL0.2 
20 FOR S=1 TO 80 
30 LET X=RND(1280) 

40 LET Y=512+RND(512) 

50 MOVE 640,512 
60 DRAWX,Y 
70 NEXT S 



75 GCOL0, 1 

80 FOR L=0 TO 1280 STEP 40 
90 MOVE L, 512 
100 DRAW(L— 512)*4,0 
110 NEXT L 

20 PMODE 3,1 
30 POLS 3 
40 COLOR 2 
50 SCREEN 1,0 
60 FOR N=1 TO 80 


70 LINE(127,95)— (256— RND(256), 
96— RND(96)),PSET 
80 NEXTN 
90 COLOR 4 

100 FOR N=95T0 191 STEP 12 
110 LINE(127,95)— (0,N),PSET 
120 LINE( 127,95) — {255,N),PSET 
130 NEXTN 

140 FOR N=0 TO 255 STEP 10 
1 50 LINE (1 27, 95)— (N, 191), PSET 
160 NEXTN 
170 GOTO 170 
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INSTANT 

EMBROIDERY 


Finally, here is a really spectacular 
program which works on four of our 
machines: 


10 FOR n=0 TO 255 STEP 2 
15 INK RND*8 
20 PLOT 0,0: DRAW n, 175 
30 PLOT 255,0: DRAW -n, 175 
40 PLOT 0,175: DRAW n, -175 
50 PLOT 255,175: DRAW — n,— 175 
60 NEXT n 
70 GOTO 10 

u 

8 MODE 2 

10 FOR N=0TO 1279 STEP 10 
15 GCOL 0,RND(7) 

20 MOVE 0,0: DRAW N,1 023 
30 MOVE 1279,0: DRAW 1279— N,1023 
40 MOVE 0,1023: DRAW N,0 
50 MOVE 1279,1023: DRAW 1279-NJ 
60 NEXT N 
70 GOTO 10 

1£Q 

3 PMODE 3,1 
6PCLS 

9 SCREEN 1,0 

10 FOR L=0 TO 255 STEP 2 
15 COLOR RND(4) 

20 LINE (0,0)— (L,1 91 ),PSET 
30 LINE (255,0)— (255— L,1 91 ),PSET 
40 LINE(0,1 91 )— (L,0),PSET 
50 LINE(255,1 91 )— (255— L,0),PSET 


60 NEXT L 
70 GOTO 10 

Each of the four segments of this pattern 
begins with a dot in one corner of the 
screen. What the FOR . . . NEXT loop is doing 
is to count across the opposite side of the 
screen while a pattern of lines is drawn 
between the pairs of points thus created. 

Exactly how the graphics work is in a 
later chapter. But try deleting Lines 30 and 
40 and you will get the general idea. 


You can experiment, too — by deleting 
some of the ‘drawing’ lines, by varying the 
colours, by lengthening the STEPs in Line 
10 and by excluding the GOTO line at the 
end. In minutes you can create hundreds of 
different patterns — ‘instant embroidery,’ 
in fact. 

In doing this, you are not just creating 
pretty pictures on the screen. You are also 
helping to familiarize yourself with one of 
the most useful ‘tools’ available to the 
programmer. 
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UNTANGLING YOUR 

SAVES AND LOADS 


Nothing is more infuriating than a 
program which won't SAVE or a game 
that won't LOAD. Here's how to get 
the frustration down to an irreducible 
minimum 



Few things bring a newcomer down to the 
harsh reality of computers' exacting 
demands more quickly than early problems 
of SAVEing and LOADing programs with a 
cassette recorder. 

Almost everyone has tape problems. 
The causes are not always easy to isolate — 
even when you do know your way round a 
computer. Nor is it possible to completely 
eliminate SAVE and LOAD errors by adopting 
apparently fail-safe recording and play- 
back procedures. But you can establish 
routines which will minimize the risks. 


CORRECT SET-UP 


Some computers use a purpose-built tape 
recorder which makes a single direct con- 
nection to the host machine and there 
should be no problem linking this up. But 
most computers can be linked to any cas- 
sette-type tape recorder — often using 
more than one type of lead combination. 
Typically the lead consists of a DIN plug 
connected to three jack plugs, but can be a 
DIN plug to a DIN plug with or without a 
jack plug. 

If you buy a lead — or make one up from 
existing audio leads you may have — do 
ensure it is suitable: LOADing difficulties 
will be evident right away if it is not. 


CONTROL SETTINGS 


An early — and important — step which 
prevents a hit-or-miss approach to SAVE 
and LOAD routines is to establish exact set- 
tings of the tone, volume and feature con- 
trols on the recorder you are using. Some 
computer instructions provide precise 
directions on the best way of doing this — 
advice which you should follow carefully. 
Others leave it all up to you. If you are 
using a special data cassette recorder, 
follow the specific setting-up instructions 
which should be provided. 

With an ordinary audio recorder, start 
by switching out all the special features 
such as noise reduction systems and filters. 
Set the tone control(s) to give maximum 
treble ( l high') and leave the recorder in this 
state whenever it is used with the com- 
puter. Switch out special filters. 


Choose a mid-point volume setting and 
try LOADing a prerecorded program, such 
as on the demonstration tape which came 
with your machine. If the program fails to 
LOAD, try increasing the volume by a little 
and running it again. If the program still 
fails to LOAD, continue increasing the 
volume, step-by-step, running the program 
tape again each time. 

If you reach the maximum setting with 
no success, reset the volume control to 
slightly less than the original mid-point 
position and then progressively decrease 
the volume setting, running the tape again 
each time. 

If for some reason the program fails to 
LOAD at any volume setting, check the con- 



1. If you can, permanently mark 
the best volume setting 
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nections again. Try another lead or pro- 
gram tape, or borrow a tape recorder 
known to work with your make of com- 
puter. If nothing works ask your dealer’s 
advice — it could very easily be a fault with 
your computer. 

When you have found a successful 
volume setting for LOADing, note the con- 
trol setting, establish upper and lower 
limits, then mark the mid-point for future 
use. You can usually leave the volume con- 
trol at the same setting for SAVEing opera- 
tions — many recorders have automatic 
recording level control in any case. 

To test that the volume levels are right 
for SAVEing, clear the computer memory 
(type NEW! then press ENTER or RETURN or 


simply switch the machine off and then 
back on) and enter this dummy program: 

10 REM TEST 
20 REM 
30 REM 
40 REM 

and then follow the SAVE command routine 
used by your computer. When you LOAD 
and LIST, you should get the program back. 


THE SAVE COMMAND 


The exact form of SAVE command used 
with your computer is given in your 
manual. But several preliminary steps are 
needed. 

Before SAVEing any program, load your 
recorder with a suitable cassette and wind 
it just past the point where the leader joins 
the tape. 

Next, decide on a suitable file name for 
your program. All data is stored in the 
form of ‘files' of one type or another, 
regardless of the actual storage methods 
used. But, for recordings made on tape, 
particular types of file names are used with 
the SAVE command. 

The file or program name can usually be 
any combination of characters or symbols 
within the line length specified for your 
machine. On most machines the file name 
is restricted to ten characters or less; only a 
few permit anything longer. 

You can call your program anything you 
like within the allowable line length and 
short abbreviations are just as good as 
long-winded descriptions. But everything 
that forms part of the file or program name 
must be enclosed wholly by quote marks 
before it can be recognised as such by the 
computer: 

SAVE “PROGNAME0r 
SAVE “ProgName0r 

Both these are valid SAVE commands — but 
note the use of both capitals and lower case 
letters in the second example. If you mix 
capitals and lower case in this way on a 
program name you must repeat the name 
exactly when you ask the computer to LOAD 
the program. 



• Use a simple, reliable mono port- 
able recorder and, if you can, reserve 
this for exclusive use with the com- 
puter. Always use mains power to 
ensure constant motor speeds 

• Avoid using sophisticated stereo 
recorders unless its facilities can be 
switched out and mono playback is 
possible 

• Use good quality audio or data tape 
— if you find a brand which is reliable, 
stick to it. A popular or much-worked- 
on program will be LOADed many times 
and poor quality tapes will not put up 
with this treatment 

• Watch the screen for specific 
instructions — you must leave the 
recorder in ‘play’ mode until LOADing 
is complete 

• Try alternative volume, tone and 
feature control settings on your 
recorder if LOADing proves unsuc- 
cessful 

• Move the recorder away from the 
TV monitor if a program won’t LOAD 
but has LOADed successfully before. 
Try another program recording to see 
if it works — if it does, the first tape 
may have been damaged in some way 

• If volume settings need frequent 
adjusting from program to program, 
mark the necessary volume settings 
on the label of the tape cassette 

• Make a habit of rewinding tapes 
after they have been used. This may 
prevent you later trying to LOAD from 
blank parts of the tape. Start program 
searches at the beginning of a tape 
rather than put too much reliance on 
the tape counter 

• Store your program tapes in a dry, 
dust-free place, away from electrical 
appliances and heat 

• Make sure your new program LOAD 
doesn’t conflict with something 
already in memory 
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7 PIN DIN PLUG 


Although my friends with 
expensive cassette recorders 
make a great thing about 
cleaning their machines, is it 
really necessary just for data 
recording? 

Perhaps more so. Regular maintenance 
of the tape recorder — and its leads — 
takes only a few minutes yet can save 
the frustration of poor SAVEs and 
LOADs. 

Use a good quality cassette recorder 
cleaning kit to remove oxide deposits 
from the drive mechanism and head(s) 
of your recorder. Be especially careful 
not to scratch the delicate head. Avoid 
re-using ‘bud’ type wipes, though these 
may be used with caution when new to 
remove stubborn build ups which 
cannot be handled by a play or two of 
the cleaning tape. If you use cleaning 
solution make sure it has an 
alcohol — not solvent — base. 


to ‘record’. Enter your selected program 
name after your com puter’s ta pe SAV E 
command and then hit IENTERI or I RETURNl . 
The computer should then take control of 
the recorder motor until the SAVE routine is 
completed. 

If control is left to you, enter the SAVE 
command, put the recorder into ‘record’ 
mode and then press [ENTER] or I RETURNl . Wait 
until the ‘ready’ prompt shows on the screen 
display. 

If you are storing a particularly 
important program, repeat the SAVE rou- 
tine for at least one backup copy - but first 
make sure there is room on the tape to do 
this. Better still, record the backup copy on 
a quite separate tape. 

The time taken for the program to load 
depends on two factors: its size, in terms of 
memory usage, and the speed of data flow 
between the computer and recorder, which 
is fixed on some machines and selectable 
on others. 

The most reliable recordings are made 
at the slowest rates and many computers 
will use their own minimum settings unless 
instructed otherwise. Fast settings use less 
tape and obviously SAVE and LOAD pro- 
grams more quickly. With the very fastest 


If you want visual spacing, consider 
using punctuation marks (other than full 
quotes) instead: 

SAVE “PROG. NAME” 

SAVE “PROG/NAME” 

SAVE "PROG (NAME)” 

If your computer is linked to a remote con- 
trol facility on the recorder, set the controls 


6 CORE SCREENED LEADS 


7 PIN DIN PLUG 


replace the program you want to SAVE with 
the program on the tape. If the SAVE has 
been successful, it will be the same thing. 
But if the transfer has distorted the pro- 
gram in any way you will have lost the 
original. 

Many computers avoid this problem by 
providing some form of VERIFY command. 
Its use typically involves rewinding the 


rates it is important to use top-quality 
tapes and a proven recorder. 

Other variations of the SAVE command 
to deal with special applications are 
explained in a later article. 

Make a habit of labelling the cassette as 
soon as you have made a new program 
recording. Small, self-adhesive labels are 
particularly convenient for this. Remove 
the tab from the back of the cassette to pre- 
vent accidental erasing or overwriting of 
an important program. 


VERIFYING YOUR SAVES 


One way of checking whether or not a pro- 
gram has been SAVEd properly is to LOAD 
and RUN it. But this could mean the loss of 
the program if the SAVE has not been suc- 
cessful. In the computer’s memory you will 
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Keying in the LOAD instruction and 
pressing the ‘play’ key on the recorder 
enables the computer to read the tape 
signals. It searches first for a program 
name, and will display all the program 
names until it reaches the one which 
matches the file name you have entered 
after the LOAD command. When this name 
is found, the data which follows is auto- 
matically LOADcd into the memory. 

If the recorder is remotely controlled by 
the computer, the cassette drive automati- 
cally stops after loading, but it is up to you 
to press the ‘stop' key. If your recorder is 
not controlled by the computer, press 
‘stop' when prompted to do so. 

The program you LOAD will replace 
whatever is already in your computer’s 
available RAM memory - so if you have an 
important program in there, make sure 
you have SAVEd it beforehand. 

Wind the four-line test program back to 
its start and try to LOAD it using the chosen 
file name. If you have problems, refer to 
the troubleshooting guide here. 

Other forms of LOAD command arc 
needed for accessing machine code data, 
for program relocation, and for merging 
one program with another. Your first 
encounter with these may be as part of the 


LOADing instructions for games you have 
bought. Many of these will also use small 
‘loader’ programs which initiate LOADing of 
the much larger programs which follow. To 
get these programs going, simply follow 
the command and file name requirements 
listed on the cassette. 


Q + A 

Can I use old music cassettes 
for recording program data? 

Although it is best to use good quality 
data tapes, perfectly acceptable results 
are possible using top-quality audio 
cassettes. If by ‘old music cassettes' 
you mean tapes which have lain 
around on a parcel shelf of a car or in 
some equally unsatisfactory storage 
location, you are asking for trouble. 

Tapes which have shed minute 
fragments of their coating or bind 
slightly may make no appreciable 
difference if you are playing music — 
but can wreak havoc on data SAVEing 
or LOADing. Only one item of 
information has to go astray for a SAVE 
or LOAD error. 

A further problem of using tapes 
previously used to record data or music 
is the continued presence of part of the- 
original signal after the new data 
recording has been made. This 
can easily spoil it. 


tape back to the start of the program, and 
running the command using a file name 
which exactly matches that used in the 
SAVE command, for example: 

VERIFY “PROGNAME01” 

2. Here are two recorder leads you 
could copy for use on your 
computer. Check your manual for 
the right pin configuration at the 
computer end (lower left) 


5 PIN DIN PLUG 


The computer will then read through the 
SAVEd program and check it against the one 
it has in its memory. If the program has 
corrupted during recording an error mes- 
sage will be displayed on the screen. This 
gives you the opportunity to try the SAVE 
again until you are successful. 


THE LOAD COMMAND 


If you start by using prerecorded program 
tapes, your first problems arc likely to be 
with the LOAD command. As with the SAVE 
command, there can be several types of 
LOAD command even for a single type of 
computer. But for the moment look at the 
simplest form: 

LOAD “PROGNAME01" 

This exactly duplicates the form of file 
address used by the SAVE and VERIFY com- 
mands - the program will not load if there 
is any error in the program file name. 








MOVING 

ANIMATION 


Want to bring your games 
programming to life? Then start with 
these simple graphics characters— 
you can produce them from the ROM 
graphics on your computer 


Playing commercial computer games is 
fine up to a point, but the time comes when 
most people feel the need to let loose their 
imaginations and create their own games. 

Games programming is not easy; you 
have to start with simple things and build 
up. But this helps you to learn to think logi- 
cally and increases your programming 
skill. You’ll also have more fun. 

In games programming the first thing 
you need to learn, apart from BASIC skills, 
is the technique of animation. 

To create the illusion of movement, the 
computer programmer uses much the 
same techniques as the cartoonist who ani- 
mates a movie. He creates two (or more) 
pictures and alternates them rapidly — 
ideally, about 24 times a second. 

But there is an important difference. In 
movie animation, the cartoonist can rely 
on the film projector to get rid of each pic- 
ture when it is no longer wanted. In com- 
puter animation this is not so. Unless you 
do something about it, any segment of a 
picture which you ‘project’ onto a given 
area of the screen will stay there. 

One way of getting rid of the unwanted 
segment is simply to print something over 
it. The computer cannot put two images on 
the same screen location at the same time. 

So if, for example, Line 10 tells the com- 
puter to print an A at a particular location, 
any later line which prints (say) B at the 
same location will dispose of the A as well. 

The programs below include several 
examples of this kind of substitution. 

But what if you have nothing that you 
want to print over the unwanted character? 
Then you must remember to include in a 
later line an instruction to print a space, 
at the relevant screen location. 

Forget this detail, and your screen can 
easily be cluttered with unwanted bits of 
arms, legs and bodies. 

There are big differences between one 
computer and another in the way you get 
graphics characters on the screen. The 
standard, or ROM, graphics characters 
vary. So does the way you PRINT them on 
■| the screen. And so does the way you make 
I them move. 



A simple animation you can try on the 
Dragon and Tandy is the small ‘creepy crawly' 
(below). To create him, program the 
machine as follows: 

) ) ) ) ) ) ) ) ) ) ) ) 

ooo < ooo < ooo < ooo < 

) ) ) ) ) ) ) ) ) ) ) ) 

10 PRINT @ 238, -000" 

20 PRINT @ 206, “)))” 

30 PRINT @241, “<” 

40 PRINT @ 270, “)))” 

RUNning this program is rather an elabo- 
rate way to produce a simple image, but it 
does illustrate some interesting points: 

First, it gives you some feel for the rela- 
tive positions of the screen locations. The 
middle of the insect is about in the middle 
of the screen, at location 239. 

Second, it shows what happens when 
the machine is told to PRINT more than one 
character at one screen location— it simply 
carries on and prints the characters at the 
adjoining (higher numbered) locations. 
That is why the ‘feelers’ in line 30 are at 
241. Locations 238-240 are already 
occupied by the insect’s body. 

A more convenient way of setting up the 
insect is to amalgamate the program above 
into a single line. Incidentally, if you have 
not discovered it yet, on the Dragon there 
is a shorthand for PRINT — just use the 
character “?”. When the program is listed 
the machine will show PRINT instead of?. 
The simplified program looks like this: 

10 PRINT @ 238, “ 000 <’': PRINT @ 206, 
“)))”:PRINT @ 270, “)))” 

If you add two more lines you get some 
animation: 

20 PRINT @ 238, “000<”:PRINT @ 206, 

“(((” : PRINT @ 270, “(((” 

30 GOTO 10 

RUNning the program produces a blur and 
does not look like animation at all. The 
reason for this is that the pictures are being 
swapped too quickly. If you insert a 


FOR... NEXT loop it makes the computer 
pause and count, and animation is clearer. 
Any number can be used in the FOR. . . NEXT 
loop lines (Lines 13 and 25), not only 15. 
Other numbers will simply give you a 
longer or shorter delay. 

Try adding these extra lines: 

15 FOR L=1 TO 15 
17 NEXT L 
25 FOR L=1 TO 15 
27 NEXT L 

Now you have a little insect which flails 
about uselessly but, nonetheless, gives 
believable animation. Movement comes a 
little later (see Movement). 

) ) ) ) ) ) ) ) ) ))) I 
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LOW-RESOLUTION GRAPHICS 


You can use the computer’s low-resolution 
graphics to create more interesting anim- 
ations. The User’s manual shows the gra- 
phics characters which you can use. Each 
graphics character has a code (a value from 
128 to 143). To display them on the screen 
you use CHR$ then the code of the graphics 
character in brackets. 

For example, to display the character 
represented by code 138 towards the 
middle of the screen you would type: 

10 PRINT @ 239, CHR$ (138) 

The following program uses the low-reso- 
lution graphics to animate this spinning 
satellite (fig. 1 shows two views of it which are 
alternated in the program). 

10 CLEAR 500:CLS 

20 PRINT@ 174,CHR$(143)+CHR$(141 ): 
PRINT® 178,CHR$( 143) 

“□EJDDDEID ^□□□EEED 

“□HEHIDD 

w IIISIID iio 0EEEEEE 
"JJJJ/ i2 °5BBBBBEI 

“BDDDdSe -□□□iran 

1. How to build your satellite 
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30 PRINT® 206,CHR$(140)+CHR$(132)+ 
CHR$(141) 

40 PRINT® 23B,CHR$(137)+CHR$(129)+ 
CHR$(129)+CHR$(129)+CHR$(129)+ 
CHR$(129)+CHR$(141) 

50 PRINT® 268,CHR$(135)+CHR$(132)+ 
CHR$(132)+CHR$(132)+CHR$(132)+ 
CHR$(133)+CHR$(135) 

60 PRINT® 300,CHR$( 143) : PRINT® 
303,CHR$(133):PRINT@ 305,CHR$ 
(143)+CHR$(143) 

70 FOR X=1 TO 10 
80 NEXT X 

90 PRINT® 173,CHR$(141):PRINT@ 177, 
CHR$(141) 


100 PRINT® 205,CHR$(139)+CHR$(140)+ 
CHR$(140)+CHR$(137) 

11 0 PRINT® 236,CHR$(138)+CHR$(130)+ 
CHR$(130)+CHR$(130)+CHR$(130)+ 
CHR$(130)+CHR$(143) 

120 PRINT® 268.CHR$(139)+CHR$(136)+ 
CHR$(136)+CHR$(136)+CHR$(136)+ 
CHR$(137)+CHR$(143) 

130 PRINT® 300,CHR$(137):PRINT@ 
303,CHR$( 143): 

PRINT® 305,CHR$(139) 

+CHR$(141) 

140 FOR X=1 TO 10 
150 NEXT X 
160 GOTO 10 

Do not worry about Line 10 in the pro- 
gram. CLEAR 500 simply makes enough 
memory space available for the strings 
created by using CHR$ codes and CLS gives 
you a clear screen for your animation. 

Look up the graphics characters repre- 
sented by the codes after CHR$ in the pro- 
gram. And by referring to fig. 1, try to see 
how the spaceship is constructed. The pro- 
gram instruction "+CHR$()’ means "PRINT 
CHR$() on the next screen location.’ 


MOVEMENT 


Here, at last, is a program which not only 
animates the insect, but also moves it 
across the screen: 

10 CLS 

20 FOR N=0 TO 28 

30 PRINT® 192+N,“)))”:PRINT® 224+N, 
“000 <”: PRINT® 

256+N,“)))” 

40 FOR X=1 TO 10 
50 NEXT X 

60 PRINT@ 192+N, PRINT® 
224+N, PRINT® 
256+N, u nnn” 

70 PRINT @ 192+N,“(((”:PRINT® 

224+N,"‘000< M : PRINT® 256+N,“(((” 
80 FOR X=1 TO 10 
90 NEXT X 

100 PRINT@ 192+N, u DDn”:PRINT@ 
224+N, “□□□□SPRINT® 

256+N, 

110 NEXT N 
120 GOTO 20 


There are three FOR ... NEXT loops in the pro- 
gram. The two loops using X both do 
exactly the same thing as in your first 
attempt at using them — they slow the 
printing down by causing the computer to 
count to 10 each time. 

The FOR... NEXT loop using N has a dif- 
ferent function. The loop actually makes 
the insect move across the screen one loca- 
tion at a time. (For how a FOR... NEXT loop 
works, see BASIC programming 2.) 

You may be puzzled that Line 20 reads 
FOR N = 0 TO 28 when there are 32 spaces 
(the top line numbered from 0 to 31) avail- 
able in each line of the screen. The reason 
for this is that the insect is four spaces long 
— if you had any more than 28 the insect’s 
antennae would appear at the opposite side 
of the screen, one line down. This is 
because of the way the screen locations are 
numbered. Screen location 32, for 
example, is the first location on the second 
row from the top of the screen. 

Lines 60 and 100 appear to be PRINTing 
nothing at all. Try deleting them and see 
what happens, though. These are "un- 
PRINTing’ lines as described earlier. 
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You can make up bugs and monsters on 
Acorn machines simply by using the ordi- 
nary keyboard characters such as brackets, 
dashes and letters. 

Below is a small ‘creepy crawlie’ made 
up this way which is very easy to animate. 

To begin with, try creating him in a 
static position. 


) ) ) 
OOO < 
) ) ) 


) ) ) 
OOO < 
) ) ) 


) ) ) 
OOO < 
) ) ) 


) ) ) 
OOO < 
) ) ) 


5 CLS 

10 PRINT TAB(15,10)rOOO 
20 PRINTTAB(15,9);“)))” 
30 PRINT TAB(15, 11 );“)))” 
40 PRINT TAB( 18,1 0);“<” 


(Note that when you type in this program 
you must not leave a space after TAB.) 

Now RUN the program. 

This is a very simple picture, and not 
terribly lifelike, but it does illustrate one or 
two interesting points. 

First, it gives you an idea of the relative 
positions of the screen locations. The 
middle of your insect is on Line 10 from 
the top and about halfway across the 
screen. 

Second, it shows the effect of telling the 
computer to print more than one character 
on a single location. It simply carries on 
and prints the extra characters on the 
adjoining locations. That is why the 
‘feelers’ in Line 40 are at 18,10. Locations 
15,10; 16,10; and 17,10; are already 
occupied by the insect’s body. 


To animate the insect you must over- 
print it with another slightly different one 
and then swap quickly between the two. 

Add these lines to draw the second 
insect: 

50 PRINTTAB(15,10);“OOO” 

60 PRINT TAB(15,9);“(((” 

70 PRINT TAB( 15,11 );“(((” 

80 PRINTTAB(18,10);“<” 

Add one more line and you have anima- 
tion: 

90 GOTO 10 

When you run this new program you may 
find the flashing cursor spoils the picture. 
You can get rid of it by adding: 

7 VDU 23;8202;0;0;0; 

You may also want to change the speed at 
which the legs move. You can slow them 
down by using IN KEY which tells the com- 
puter to wait for a while. The delay is mea- 
sured in hundredths of a second, so 
A=INKEY( 1 00) means a delay of one 
second. 

Try adding these lines: 

45 LET A = INKEY(50) 

85 LET A=INKEY(50) 

You can adjust the speed of the insect’s legs 
by varying the INKEY number until you get 
realistic movement. 


If you have a BBC computer you can make 
better-looking characters using the com- 
puter’s graphics set. (Making graphics cha- 
racters on the Electron requires a different 
procedure, and is covered in a later article.) 

In MODE 7 the BBC computer can pro- 
duce a whole range of block graphics which 
you can build up into interesting shapes. 

First draw out a shape on graph paper 
and divide it into rectangles 2 squares 
across by 3 squares down. Each of these is 
a graphics character. Each character has a 
number which is given in the back of the 
manual. 

If you look up the numbers and write 
them out as shown in Fig 2, it is easy to 
write a program to draw the picture on the 
screen. Here is one example: 

10 MODE 7 

20 LET Y=1 0: LET X=15 
40 VDU 31 ,X,Y, 146, 160, 160,191 ,160,160 
50 VDU 31 ,X,Y+1, 146, 184, 163,255, 240, 160 
60 VDU 31,X,Y+2, 146,160, 168, 189, 236,160 
70 VDU 31,X,Y+3, 146, 160, 224,165, 234, 176 
80 VDU 31 ,X,Y+4, 146, 168, 177, 160, 160, 160 
90 VDU 31 ,X,Y,146, 160,160,252,160,160 
100 VDU 31 ,X,Y+1, 146,232,236, 189, 174, 160 
110 VDU 31 ,X,Y-P2, 146, 162, 238, 177, 160, 160 
120 VDU 31, X,Y+3,146,240,250, 162, 180,160 
130 VDU 31 ,X,Y+4, 146, 161, 160,160, 245, 160 
140 GOTO 40 


USING TELETEXT GRAPHICS 











IIIIIIIIIIMHI 


7 TtiAmPROGRAMMiNfi 7 


II 




1 



160 

160 

191 

160 

160 

H 

hi 



184 

163 

255 

240 

160 



1 

i 

i 

B 

160 

168 

189 

236 

160 


J 

E 

160 

224 

165 

234 

176 

j 

EE 

□□ 

168 

177 

160 

160 

160 


nr 

IB 

□ 


160 

160 

252 

160 

160 

i-ih 

a 


232 

236 

189 

174 

160 

□BE 



162 

238 

177 

160 

160 

yy 

in 

L 


240 

250 

162 

180 

160 

n 

El 

L 


161 

160 

160 

245 

160 


2. The running man — two views 


The first line puts the computer into Mode 
7, the Teletext mode. Line 20 sets the man's 
position on the screen. 

Lines 40 to 80 define the man in the first 
position, while Lines 90 to 130 define him 
in the second position. Again you may need 
to use INKEY after Lines 80 and 130. 


The VDU command controls the screen, 
so that VDU 31,X,Y means PRINT TAB(X,Y). 
The next number produces coloured gra- 
phics, 145 to 151 making all the different 
colours. In this case, 146 draws the man in 
green. The other numbers (160 and over) 
are the ones that control the shape. 


MOVEMENT 


Making the man move across the screen is 
also quite easy. All you do is start him in 
position X=0 at the left of the screen and 
move him one position at a time to the 
other side. 

The computer does this by using a 
FOR . . . NEXT loop. So you will need to type in 
two new lines: 

30 F0R X=0TO 35 
140 NEXT X 

This prints the man at each position from 
column 0 to column 35. 

You may wonder why X only goes up to 
35 when there are 40 columns on the 
screen (from X=0 TO 39). The reason is 
that the man is five columns wide. If he 
went past the end of the screen, bits of him 
would start appearing on the left-hand 
side. Try changing Line 30 and see what 
happens. 

Now add two more lines to introduce a 
slight delay: 

85 LET A=INKEY(3) 

135LETA=INKEY(3) 

Finally, add one more line to turn off the 
flashing cursor: 


Here, then, is the complete program: 

10 M0DE7 

15 VDU 23;8202;0:0:0; 

20 LET Y=10 
30 FOR X=1 TO 35 

40 VDU 31 ,X,Y,146,160, 160,191 ,160,160 
50 VDU 31 ,X,Y+1 ,146,184,163,255,240,160 
60 VDU 31 ,X,Y+2, 146,160, 168,189,236,160 
70 VDU 31 ,X,Y+3, 146,160, 224,165, 234, 176 
80 VDU 31 ,X,Y+4,146,168, 177, 160.160,160 
85 LET A=INKEY(3) 

90 VDU 31 ,X,Y, 146,160,160.252,160,160 
100 VDU 31 ,X,Y+1 ,146,232,236,189,174.160 
110 VDU 31 ,X,Y+2,146,162, 238,177, 160, 160 
120 VDU 31 ,X,Y+3, 146,240, 250, 162,180,160 
130 VDU 31 ,X,Y+4,146,161 ,160,160,245,160 
135 LET A=INKEY(3) 

140 NEXT X 

Notice that in this case there is no need for 
any ‘un-PRINTing’ spaces. The control code 
146 acts as a blank space which automati- 
cally erases the previous image as the man 
is moved along. 

You would need them, though, if you 
wanted to make the ‘creepy crawlie’ move, 
so spaces are inserted in front of each 
image as shown in the program below: 

10CLS 

20 VDU 23;8202;0;0;0: 

30 FOR X=1 TO 35 
40 PRINTTAB(X,10);“D000<” 

50 PRINT TAB(X,9);“D)))” 

60 PRINT TAB(X, 11 );“□)))" 

70 A=INKEY(1 0) 

80 PRINT TAB(X,10);“DOOO<” 

90 PRINT TAB(X,9);“D((r 
100 PRINT TAB(X, 11 );“□(((” 

110A=INKEY(10) 

120 NEXT X * ^ 










The Commodore version of the ‘creepy 
crawlic' uses exactly the same typewriter 
symbols as do other machines, but the 
method of creating him on the screen is dif- 
ferent. Try keying in this program: 

) ) ) ) ) ) ) ) ) ) ) ) 

ooo < ooo < ooo < ooo < 

) ) ) ) ) ) ) ) ) ) ) ) 

10 PRINT 
20 PRINT “)))” 

30 PRINT “OOOC” 

40 PRINT “)))” 

50 PRINT g" 

60 PRINT “(((" 

70 PRINT “000<" 

80 PRINT “(((" 

90 GOT0 10 

When you RUN the program you will see a 
rapidly alternating picture. It is created by 
the separate sets of symbols in the PRINT 
statements overlaying each other. At the 
same time, the GOTO statement in the last 
line creates a continuous loop: it tells the 
computer to go back to the start. 

Without Lines 10 and 50 the program 
could not RUN properly. Both use the 
special characters available in the ‘quote 
mode' of CBM machines, which allow you 
to incorporate cursor movements and 
other controls within an otherwise 
standard PRINT statement. 

How do they work? The HOME symbol 
(reverse S) in Line 50 returns the cursor to 
the HOME position at the top left of the 
screen. 'This means that subsequent screen 
activity starts at this position, so the new 
characters from Line 60 onwards over- 
write the existing ones. 


The CLEAR/HOME symbol (reverse heart) 
in Line 10 does something more. Having 
returned the cursor to the top left position, 
it also clears the screen ready for the next 
image to appear. 


SLOWING IT DOWN 


Until now, the ‘movement' of the insect is 
rather fast and could do with being slowed 
down. This is most easily done by using a 
FOR. . . NEXT loop. So next enter this line: 

45 FOR T=1 TO 100: NEXT 

When you press the RETURN key and RUN 
the program, the movement is much more 
deliberate. The FOR. . . NEXT loop is acting as 
a counter — in this case counting up to 100 
before the program goes on to Line 50. 

You can vary the length of the pause 
simply by changing ‘100' to any other 
number you choose: the bigger the 
number, the longer the delay. 

Try also changing the position of the 
FOR... NEXT delay loop to Line 15. 
Depending on the delay you select, there 
should be a noticeable pause — a blank 
screen— when one image is cleared but not 
immediately replaced by another. This 
shows why it is better to use HOME rather 
than CLEAR/HOME , within a program of this 
kind. 

As it stands, the image is still rather 
jerky, because the delay loop is acting only 
on the first image. You can get a much 
more purposeful movement by introducing 
another FOR. . . NEXT loop into the program 
to act on the second image. So enter this: 

85 FOR 1=1 TO 50: NEXT 

This delay loop is shorter, to create a 
slightly irregular ‘leg' movement, but you 
can of course change it if you wish. 


MOVING THE CHARACTER 


The next step is to alter the program so 
that the ‘body' of the insect appears to 
cross the screen. Commodore BASIC has no 
PRINT AT statement, so other methods have 
to be used to position characters. 

In simple applications, you can use the 
TAB function. TAB is always followed by 
either a number enclosed within brackets, 
such as TAB( 15) — which places the cursor 
at column 15 on the screen — or by a vari- 
able enclosed within brackets. And TAB 
always forms part of the PRINT statement to 
which it applies. 

In this case, use a variable to make the 
TAB position move across the screen. So use 
another FOR. . . NEXT loop: 

10 FOR P=0 TO 35 
20 PRINT □" TAB(P) “)))" 

30 PRINT TAB(P) “000<" 

40 PRINT TAB(P) “)))" 

45 FOR 1=1 TO 100: NEXT 
60 PRINT TAB(P) “((('' 

70 PRINT TAB(P) “000<" 

80 PRINT TAB(P)“(((" 

85 FOR 1=1 TO 50:NEXT 
90 NEXT P 

What you have done is to scrap the original 
GOTO statement in Line 90. It is now 
replaced by a FOR... NEXT loop which 
increases, by 1, the value of the variable P 
each time the program repeats itself. Since 
P is part of the TAB statement, this moves 
the insect across the screen by one step for 
every cycle of the program. 

When you RUN the program, you can see 
the insect move across the screen and stop 
at the right. To re-start the action, you 
need: 

100 GOTO 10 
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USING ROM GRAPHICS 


The Commodore has a wide range of on- 
board graphics characters which can be 
used lor creating rather more elaborate 
shapes and images. 

To access the full range you have to be 
familiar with the computer’s “upper case 
and graphics” mode, obtained by sim- 
ultaneously pressing the C= and ! SHIFT 
keys. 

Now try keying in a few of the graphics. 
The left-hand symbol can be printed on the 
screen by simultaneously pressing C=| and 
the chosen key letter. The right-hand 
symbol is obtained in the same way but by 
using the [SHIFT I and letter keys. 

Other graphic symbols can be obtained 
by using RVS (reverse), enabled by sim- 
ultaneously pressing CTRL and 9, and 
switched off by simultaneously pressing 
[CTRL] and 0. 

The helicopter graphic (fig 3) uses un- 
reversed symbols, and gives some idea of 
ROM graphics. Here is the program: 


5 PRINT " □ ’’ 

10 PRINT @ 

15 PRINT □" v 

20 PRINT □" 

25 PRINT □" 

30 PRINT □” 

35 PRINT • -~r>00O 
40 PRINT 
45 PRINT 
50 PRINT □" 

55 PRINT □“ 

60 FOR D=1 TO 50: NEXT 
65 PRINT "EU 
70 PRINT □“ 

75 PRINT 
80 PRINT □“ 

85 PRINT □" 

90 PRINT □" 

95 PRINT □“ 

100 PRINT “ 

105 PRINT " 

110 PRINT “ 

115 FOR D=1 TO 50:NEXT 
120 GOTO 10 
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3. How to build a helicopter. 
Each square is a ROM graphic 



Shown below is a small ‘creepy crawly’ which 
is easy to animate on the Spectrum or ZX81. 
To begin with, try creating him in a static 
position, thus: 


Now RUN the program. This is a rather ela- 
borate way of producing a simple image, 
but it does illustrate one or two interesting 
points. 

First, it gives you an idea of the relative 
positions of the screen locations. The 
middle of your insect is on Line 10 from 
the top, and about halfway across the 
screen. 

Second, it shows the effect of telling the 
computer to print more than one character 
on a single location: it simply carries on 
and prints the extra characters on the 
adjoining locations. That is why the 
‘feelers’ in Line 40 are at 10,18. Locations 
10,15; 10,16; and 10,17; are already 
occupied by the insect’s body. 


A more convenient way of setting up the 
insect is to amalgamate the above instruc- 
tions into a single line, thus: 

10 PRINT AT 10,15; “000<”; AT 9,15 ;“)))”; 
AT 11,15;“)))” 

Add two more lines, and you have anima- 
tion: 

20 PRINT AT 10,15; “000<”; AT 9,15; “(((”; 

AT 11,15; “(((” 

30 GOTO 10 

When you RUN this program, you may find 
that it produces a blur — the pictures are 
being swapped too rapidly. 


) ) ) ) ) ) ) ) ) ) ) ) 

ooo < ooo < ooo < ooo < 

) ) ) ) ) ) ) )) ) ) ) 

10 PRINT AT 10, 15; "000” 

20 PRINT AT 9,15;“)))” 

30 PRINT AT 11,15;“)))” 

40 PRINT AT 10,18; “<” 







3 


The best way to slow them down is to 
use a FOR... NEXT loop, which makes the 
computer count up to 10 (or whatever else 
you like) before PRINTing the next picture. 
So try adding these extra lines to your 
program. On the ZX81 use 2 instead of 1 0. 

15 FOR L=1 TO 10 
17 NEXT L 

25 FOR M=1 TO 10 
27 NEXT M 

Of course you can vary the length of the 
pause simply by changing the 1 TO 1 0 to 1 
TO 5, 1 TO 20 or whatever else you need. 

So far you have created a rather useless 
little insect, whose legs flail about madly 
but who doesn’t move. That comes a little 
later (see Movement). 

) ) ) ) ) ) ) ) ) ) ) ) 

ooo < ooo < ooo < ooo < 

) ) ) ) ) ) ) ) ) ) ) ) 


USING ROM GRAPHICS 


Somewhat more interesting animation can 
be produced by using the standard Sinclair 
graphics characters. One example is in 
fig. 4. 

The full program is given below, but if 
you are not used to the graphics symbols it 
will pay you to first create a static figure 


one line at a time, thus: 

1 PRINT AT 5,15; “0” 

2 PRINT AT 6,15; “BBS” 

...and so on. 

Getting these graphics characters is easy. To 
get those in Line 2 above, for example, press 
ICAPS SHIFT ! (TSHTFTI on the ZX81) and 9 
simultaneously. This puts you in graphics 
mode, indicated by a flashing G on the scr een. 
Then, on the Spectrum, press I CAPS SHIFT 1 and 
6 together to get an inverse - black for w hite - 
version of the symbol on the 6 key; then 
[ CAPS SHIFT! and 8; then 6 by itself. On the 
ZX81, press fSHiFTl and T; [SHIFT] and [SRACEl ; 

I SHIFT 1 and Y. Finally push 9 again to get out of 
graphics mode before inserting the quotes at 
the end. 

Here is the full program for the figure: 

10 PRINT AT 5,14; “□OU”; AT 6, 14; 
“HBH”;AT7.,14; 

AT 8, 14; “HOPT 
20 PRINT AT 5, 14; “□0D”;AT 6, 14; 

“HQ EH”; AT 7, 14; “HBE”; 

AT 8,14; “HDB” 

30 GOTO 10 

Again you may find that inserting a FOR . . . 
NEXT loop after Line 10, and again after 
Line 20, is necessary to slow the action. 
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MOVEMENT 


Here, at last, is a program which not only 
animates the insect in the earlier program, 
but also makes him move across the 
screen: 

10 FOR N=0 TO 27 

20 PRINT AT 10,N;"OOO<”; AT 9,N; 

“(((”; AT 11,N;“(((” 

30 PRINT AT 1 0, N; “□□□□”; AT 9, N; 

*□□□*; AT 11, N; “□□□* 

40 PRINT AT 10, N; u 000<”; AT 9, N; “)))”; 
AT 11,N;“))(” 

50 PRINT AT 1 0, N; “□□□□”; AT 9, N; 

*□□□”; at ii,N; w nnn w 
60 NEXT N 
70 GOTO 10 

This program also uses a FOR. . . NEXT loop, 
but for a completely different purpose. In 
the example above, the computer was 
counting up fractions of a second before 
printing an image. Now, it is moving an 
image across the screen — one screen loca- 
tion (or ‘box’, if you like) at a time. 

Why, then, does Line 10 read “0 TO 27”, 
when there are in fact 32 screen locations 
across a Sinclair screen? To find out, try 
replacing Line 10 in the program with: 

10 FOR NH3T032 

Another puzzle may be the need for 
Lines 30 and 50. But try deleting them; 
you will soon see why they are needed. 


NEXT STEPS 


Now that you have started to learn 
animation and movement, you can begin 
to invent figures — or rockets or space 
ships — of your own, using the graphics 
set illustrated in your manual, the 
standard typewriter characters, or both. 

If you decide to try any of the figures 
illustrated for other makes of computer, 
however, you cannot use the programs 
as listed. Instead, you have to draw out 
the figures on graph paper and evolve 
your own programs from there. 
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A MARSHALL CAVENDISH COMPUTER COURSE IN WEEKLY PARTS 



fjGetyour games programs off the ground 
with KEYBOARD CONTROL techniques 
how to make ’em move, how to make ’em fly 
and how to make ’em shoot. 


CJFill the screen with graphic images with 
easy, short programs to create UDGs for 
games characters of your own design. 


E^Makeyour computer earn its keep with your 
own versatile DATA FILING system. You 
can store and recall information on hobbies, 
collections, names and addresses - and lots 
more . . . 


fjLeam how to use GOTO and GOSUB, the 
doors and gates that give your BASIC 
programs a logical structure. 


Put your computer’s decision-making 
ability to work for you, with IF . . . THEN 
routines to add to your BASIC programming 
skills. 


ASK YOUR NEWSAGENT FOR INPUT 
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